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A.  BACKGROUND 

Fires  aboard  ships  pose  a  great  hazard  to  both  personnel  and 
materiel.  Millions  of  dollars  are  spent  annually  on  repairs  of  damage 
due  to  fires.  Personnel  casualties  caused  by  fires  cannot  be  measured 
in  dollars  and  include  both  fatalities  and  severe  injuries.  Most  person¬ 
nel  casualties  result  from  toxic  gas  or  smoke  inhalation  rather  than 
contact  with  the  fire.  The  prevention  and  control  of  shipboard  fires  is 
one  of  the  Navy’s  and  Coast  Guard’s  greatest  challenges  in  future  ship 
design.  The  computer  simulation  of  a  shipboard  fire  presented  in  this 
thesis  provides  a  tool  which  may  be  used  to  reduce  the  damage  from 
shipboard  fires. 

In  order  to  prevent  fires  and  their  associated  casualties,  it  is  nec¬ 
essary  to  better  understand  the  basic  phenomena  of  fire  and  smoke 
propagation  within  enclosed  spaces.  This  requires  knowledge  of  vari¬ 
ous  physical  phenomena:  combustion,  fluid  mechanics,  and  heat  and 
mass  transfer.  Extensive  research  using  this  basic  knowledge  is 
needed  to  predict  the  behavior  of  fires.  With  a  better  understanding  of 
fires,  ship  designers  and  engineers  can  reduce  the  probability  of  igni¬ 
tion  and  propagation.  New  systems  and  procedures  for  fire  control 
can  be  developed  to  reduce  the  losses  should  a  fire  start  due  to  acci¬ 
dent,  equipment  failure,  or  hostile  action. 


Shipboard  fires  have  unique  complexities  not  found  in  other  fire 
scenarios.  Access  to  a  fire  area  is  limited  and  spaces  frequently  con-  I 

tain  electronic  equipment,  electrical  power  sources,  machinery, 
combustibles,  or  toxic  materials.  Compartments  are  often  closed, 

i 

permitting  pressure  to  build  up  in  the  space.  Self-contained  or  recir-  I 

culating  ventilation  systems  present  unusual  fire  scenarios.  All  of 

these  complications  must  be  considered  in  the  study  of  shipboard 

fires;  the  model  developed  in  this  thesis  has  incorporated  two  of  these  I 

complexities:  pressure  build-up  and  recirculating  ventilation. 

Shipboard  fire  research  is  currently  being  conducted  by  many 
organizations,  including  the  Navy  and  the  Coast  Guard.  Research  I 

includes  both  experimental  work  and  computer  modeling.  Experi¬ 
mental  work  is  limited  due  to  its  high  cost.  Scale  models  of  fires  do 
not  predict  the  behavior  of  full-scale  fires  because  of  the  complexity  of  I 

the  fire  phenomena.  It  thus  becomes  necessary  to  conduct  fire 
research  with  full-scale  testing.  At  the  Naval  Research  Laboratory  in 
|  Washington,  D.  C.,  the  U.S.  Navy  built  FIRE-1,  a  large  pressure  vessel  I 

designed  to  simulate  fires  aboard  submarines  and  surface  ships.  This 
unique  test  facility  offers  the  researcher  an  opportunity  to  study  a  fire 
I  with  the  pressure  building  up  in  the  vessel.  This  models  a  fire  in  a 

submarine  or  in  a  closed  compartment  on  a  surface  ship. 

Today’s  supercomputers,  with  their  extremely  rapid  computa- 
j  tional  speed  and  massive  storage  capability,  offer  a  researcher  the 

option  of  computer  modeling  of  fires.  The  systems  of  partial  differen¬ 
tial  equations  which  govern  the  fire  phenomena  can  now  be  solved 

I 
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numerically.  The  first  models  were  simple,  but  current  models  are 
building  on  the  older  models,  incorporating  more  phenomena  and 
producing  more  accurate  results.  As  each  new  submodel  (such  as  a 
combustion  or  gas  radiation  model)  is  added,  the  quality  of  the 
numerical  solutions  improves.  The  models  are  being  verified  by  com¬ 
parison  with  actual  fires,  such  as  those  conducted  in  FIRE-1. 

When  validated,  computer  models  provide  an  excellent  tool  for 
the  fire  researcher.  In  experiments,  each  test  must  be  repeated  many 
times  to  verify  the  procedures,  test  facility,  and  data.  The  cost  of 
these  experiments  becomes  prohibitive.  Experimental  researchers 
must  determine  which  test  scenarios  will  produce  the  most  meaning¬ 
ful  results  and  how  to  design  the  data  collection  systems  and  proce¬ 
dures  to  monitor  the  most  critical  parameters.  This  is  one  aspect  in 
which  computer  fire  simulations  become  invaluable.  By  developing  a 
code  which  accurately  simulates  a  fire  in  FIRE-1,  various  fire  scenar¬ 
ios  can  be  modeled  at  a  reasonable  cost.  The  most  interesting  scenar¬ 
ios  can  then  be  investigated  by  experiments  in  FIRE-1. 

Computer  models  may  also  be  used  in  modeling  fires  which  can¬ 
not  be  tested  in  full  scale  due  to  the  size  and  geometry  limitations  of 
FIRE-1.  An  entire  area  of  a  ship  might  be  modeled  and  the  progress 
of  the  fire  within  and  between  compartments  could  be  investigated. 
With  such  simulations,  the  spread  of  fire  could  be  analyzed,  and  new 
methods  can  be  evaluated  to  prevent  the  spread  of  fire  from  compart¬ 
ment  to  compartment.  Additionally,  the  efficacy  of  fire  extinguishing 
systems  can  be  evaluated  by  introducing  models  of  these  systems  into 
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the  fire  model.  All  of  these  future  uses  require  a  validated  code  and 
the  use  of  a  large  computer.  While  the  cost  of  a  computer  model  test 
is  significantly  less  than  a  full-scale  test,  it  still  requires  extensive 
computer  time.  The  current  code  running  on  an  IBM  3033  uses 
approximately  1.5  CPU  hours  per  second  of  fire  time.  A  supercom¬ 
puter  and  vectorization  could  reduce  this  time  by  one  or  two  orders  of 
magnitude,  but  the  number  of  model  tests  needed  to  fully  validate  the 
code  still  will  require  significant  supercomputer  resources. 

B.  COMPUTER  MODELING 

There  are  two  basic  procedure  for  modeling  fires:  field  and  zone 
modeling.  Zone  modeling  involves  dividing  the  fire  area  into  control 
volumes  or  distinct  regions  [Ref.  1}.  Each  region  contains  a  phenom¬ 
ena  of  particular  interest,  such  as  the  base  of  the  fire,  fire  plume, 
heating  of  the  wall,  ventilation  inlet  or  outlet  duct,  etc.  Mass  and 
energy  balances  are  conducted  across  the  boundaries  and  interconnect 
all  of  the  control  volumes.  This  procedure  provides  information  for 
the  entire  area,  but  the  phenomena  occurring  within  each  control  vol¬ 
ume  are  not  always  understood. 

Field  modeling,  also  known  as  differential  field  equation  model¬ 
ing,  divides  the  compartment  into  finite  volume  elements.  The  con¬ 
servation  equations  in  differential  form  are  used  to  calculate  the  mass, 
momentum,  energy,  and  smoke  concentration  at  each  time  interval. 
The  temperature,  velocity,  pressure,  density,  and  smoke  concentra¬ 
tion  are  known  in  each  volume  element.  Models  for  additional  physi¬ 
cal  effects,  such  as  turbulence,  forced  ventilation,  and  different 
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geometry  (such  as  equipment  or  decks)  can  be  included  in  a  field 
model  to  better  simulate  actual  fires.  Field  modeling  requires  a  large, 
fast  computer  with  significantly  more  memory  than  zone  modeling. 
The  accuracy  of  the  solution  depends  upon  reducing  the  size  of  the 
control  volumes;  this  increases  the  number  of  individual  cells,  the  size 
of  the  problem,  and  the  computing  expense. 

Much  fire  research  has  been  conducted  to  provide  a  solid  founda¬ 
tion  for  this  thesis.  Work  performed  at  the  University  of  Notre  Dame 
[Refs.  2,  3]  included  a  two-dimensional  finite  difference  field  model  of 
aircraft  fires.  It  predicted  the  movement  of  hot  gases  and  smoke  as 
well  as  temperature  and  smoke  concentration  levels  in  the  seating 
area  of  an  aircraft  cabin.  Additional  work  by  Nicolette,  et  al.  [Ref.  4] 
included  the  development  of  a  two-dimensional  model  of  transient 
cooling  by  natural  convection.  This  model  utilized  a  fully  transient 
semi-implicit  upwind  differencing  scheme  with  a  global  pressure  cor¬ 
rection.  Experimental  data  showed  good  agreement  with  the  numeri¬ 
cal  predictions. 

Recent  studies  [Refs.  5  through  13]  have  developed  numerical 
solutions  for  natural  convection  in  three-dimensional  rectangular 
enclosures  using  field  modeling.  They  successfully  solved  nonlinear 
partial  differential  equations  with  a  finite  difference  method.  Models 
and  studies  involving  three-dimensional  cylindrical  coordinate  buoyant 
flows  [Refs.  14  through  20]  deal  primarily  with  horizontal  cylindrical 
annuli  that  have  walls  of  different  temperatures.  Smutek,  et  al.  [Ref. 
19]  studied  convection  in  a  horizontal  cylinder  with  differentially 
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heated  ends  at  low  Rayleigh  numbers.  Yang,  et  al.  [Ref.  20]  conducted 
a  similar  numerical  study  for  high  Rayleigh  numbers. 

The  difficulty  in  calculating  pressure  has  been  addressed  using 
methods  that  eliminate  pressure  from  the  governing  equations. 
Stream  function-vorticity  methods  [Refs.  14  through  19]  have  been 
used  to  solve  natural  convection  problems  in  several  geometries.  The 
problems  inherent  in  this  method  include  instability  at  moderate  to 
high  Rayleigh  numbers,  difficulties  in  handling  three-dimensional 
situations,  and  the  lack  of  pressure  information,  which  often  is  a 
parameter  of  interest.  These  problems  are  addressed  by  Yang,  et  al. 
[Ref.  20],  who  propose  the  use  of  primitive  variables  with  an  arbitrary 
orthogonal  coordinate  system. 

Ozoe,  et  al.  [Ref.  21]  used  a  vorticity  vector  potential  formulation 
and  alternating-direction-implicit  finite  difference  method  to  compute 
velocity  and  temperature  fields  for  three-dimensional  natural  convec¬ 
tion  in  a  spherical  annulus. 

Baum  and  Rehm  [Refs.  22  through  25]  have  developed  several 
field  models  for  prediction  of  fires.  Their  models  use  time-dependent 
inviscid  Boussinesq  equations  to  simulate  three-dimensional  buoyant 
convection  and  smoke  aerosol  coagulation.  Field  models  have  also 
been  used  to  model  room  fires  [Ref.  26]  and  fires  in  a  general  three- 
dimensional  enclosure  [Ref.  27]. 

The  numerical  method  developed  by  Yang,  et  al.  [Ref.  20]  and  used 
in  this  thesis  is  based  upon  the  use  of  primitive  variable  finite  differ¬ 
ence  discretization  in  generalized  orthogonal  coordinates.  This 
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method  has  the  ability  to  handle  complex  geometries  and  the  stability 
inherent  in  the  primitive  variable  formulation. 

C.  FIRE-1,  THE  TEST  FACILITY 

To  better  understand  the  phenomena  of  fire  inside  a  pressurized 
compartment,  the  Navy  built  an  experimental  pressure  vessel  for  con¬ 
ducting  test  fires.  This  test  facility  is  designated  FIRE-1  and  is 
located  at  the  Naval  Research  Laboratory  in  Washington,  D.  C.  A  brief 
summary  of  FIRE-1  is  contained  here;  a  more  detailed  report  is  pro¬ 
vided  by  Alexander,  et  al.  [Ref.  28],  Figure  1.1  shows  the  basic  layout  of 
FIRE-1.  It  is  a  46.6-foot-long  cylindrical  vessel  with  hemispherical 
ends,  capable  of  pressures  up  to  89.7  psi  at  450  F.  The  radius  of  both 
the  cylinder  and  the  end  caps  is  9.6  feet  and  the  total  enclosed  volume 
is  11,639  cubic  feet.  The  vessel  is  constructed  of  3/8  inch  ASTM  285 
Grade  C  steel  and  contains  rupture  discs  at  each  end  to  prevent  over¬ 
pressurization. 

Instrumentation  monitors  various  fire  parameters,  including 
pressures,  temperatures,  and  smoke  concentrations.  Pressure  trans¬ 
ducers  and  bourdon  tube  gauges  are  located  at  the  north  and  south 
ends  of  the  vessel.  Thermocouples  and  radiometers  are  installed  as 
shown  in  Fig.  1.2.  An  array  of  ten  thermocouples  is  located  at  each 
end  of  the  tank.  Each  thermocouple  is  a  chrome  alumel  wire  of  0.2 
mm  diameter  having  ceramic  insulation  enclosed  in  1  mm  diameter 
Type  304  stainless  steel  jackets.  Thermocouples  are  also  located  on 
the  chamber  wall  to  measure  the  Inside  and  outside  wall  temperatures. 
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Figure  1-2.  Side  View  of  FIRE-1  With  Sensor  Locations 
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Additional  thermocouple'?  and  radiometers  are  available  for  temporary 
installation  at  various  locations  as  required  for  different  tests.  Smoke 
obscuration  can  be  measured  three  ways:  visual  obscuration  with  video 
cameras,  particle  analysis,  and  obscuration  with  laser  detectors.  The 
fuel  bum  rate  is  determined  with  a  round  tapered-edge  fire  pan  with 
various  cross-sectional  areas,  provided  with  a  constant-level  fuel  sup¬ 
ply  system.  The  operation  and  calibration  is  described  by  Alexander, 
et.  al.  (Ref  28).  To  date,  the  bum  rate  data  has  not  been  accurate,  so 
further  experimentation  is  necessary  to  provide  fuel  burn  rate.  As  dis¬ 
cussed  later,  the  lack  of  accurate  burn  rate  data  precludes  complete 
verification  of  the  computer  code.  In  the  interim,  several  methods  of 
deducing  burn  rate  have  been  developed  for  use  in  the  computer 
model. 

Three  features  permit  modification  of  the  tests  to  more  accurately 
model  the  submarine  or  ship  compartment  being  tested.  First,  there 
are  two  removable  decks,  one  installed  in  the  mid  plane  of  the  vessel 
and  the  other  slightly  over  three  feet  above  the  bottom.  Grated  or 
solid  deck  plates  can  be  installed  to  test  various  shipboard  configura¬ 
tions.  The  decks  have  been  incorporated  in  the  computer  model  but 
have  not  yet  been  tested  and  verified.  Second,  a  nitrogen  pressuriza¬ 
tion  system  extinguishes  the  fire  and  can  be  used  to  evaluate  its  per¬ 
formance  in  an  actual  fire  situation.  Ten  seconds  after  energizing  the 
nitrogen  system,  the  pressure  in  the  vessel  rises  to  two  atmospheres 
and  extinguishes  the  fire  by  reducing  the  partial  pressure  of  oxygen  to 
less  than  10.5  percent.  Third,  there  are  two  ventilation  fans  which 


can  be  installed  to  simulate  the  effects  of  internal  ventilation.  The 
ventilation  system  has  been  included  in  the  computer  model  and  is 
the  subject  of  verification  in  Chapter  4  of  this  thesis. 

D.  FEATURES  OF  THE  PROGRAM 

The  computer  model  was  developed  as  a  low-cost  alternative  to 
predict  the  spread  of  fire  and  smoke  in  enclosed  spaces  on  naval  ves¬ 
sels.  Together  with  the  FIRE-1  test  facility,  which  can  be  used  for 
validation  of  the  computer  code,  it  can  be  used  to  evaluate  the  effec¬ 
tiveness  of  damage  control  systems  and  new  ship  designs  in  the  pre¬ 
vention  and  control  of  fires. 

The  computer  model  is  a  joint  effort  of  the  University  of  Notre 
Dame  and  the  Naval  Postgraduate  School.  The  original  work  by  Nies 
[Ref.  29]  involved  a  model  of  a  rectangular  volume  similar  to  FIRE-1. 
The  model  was  a  three-dimensional,  finite  difference  model  employ¬ 
ing  primitive  variables.  It  included  a  global  pressure  correction,  sur¬ 
face  radiation,  turbulence,  and  simple  conduction  at  the  walls  The 
unreliability  of  the  burn  rate  data  from  FIRE-1  experiments  caused  a 
problem  in  validation  of  the  computer  model.  To  overcome  this 
problem,  a  scheme  for  developing  the  bum  rate  based  on  the  experi¬ 
mental  pressure  was  developed;  the  procedure  is  describe  by  Nies 
[Ref.  29:pp.  61-63]. 

Raycraft  [Ref.  30]  developed  a  more  sophisticated  model  which 
uses  a  spherical/cylindrical  coordinate  system  to  more  accurately 
model  FIRE-1.  It  also  includes  a  more  detailed  formulation  of  surface 
radiation,  global  pressure  correction,  turbulence,  and  conduction.  The 


problem  with  burn  rate  data  persisted,  and  three  trials  were  run  to 
attempt  to  better  simulate  the  burn  rate.  The  conclusions  were: 

1.  The  pressure  tracking  case,  Trial  1,  provided  a  numerically  gen¬ 
erated  heat  release  curve  from  other  available  sources.  The  pres¬ 
sure  was  forced  to  follow  the  experimental  curve,  causing  large 
oscillations  in  the  heat  release  and  temperature  data. 

2.  Trial  2  used  a  third-order  polynomial  fit  of  the  experimental  data 
provided  by  NRL.  The  pressure  and  temperature  did  not  oscillate 
greatly,  but  the  values  obtained  were  very  high.  This  indicated 
that  experimental  bum  rate  data  was  also  too  high.  It  was  known 
at  the  onset  that  the  heat  release  rate  data  could  be  off  by  some 
unknown  scaling  factor. 

3.  Of  the  three  test  cases  examined.  Trial  3  was  a  better  repre¬ 
sentation  of  the  fire  in  FIRE-1.  This  case  combined  the  heat 
release  rate  levels  obtained  from  Trial  1  with  the  third-order 
polynomial  fit  variation  from  Trial  2.  The  results  were  a  realistic 
bum  rate  curve  to  use  as  input  into  the  computer  code.  [Ref.  30] 

The  present  code  Includes  internal  forced  ventilation  into  the 
model.  The  effects  of  two  fans  blowing  into  the  end  caps  of  the  vessel 
is  investigated  in  this  thesis  using  the  burn  rate  curve  discussed  above 
in  Conclusion  3.  The  results  are  compared  with  existing  data  of  the 
fire  model  without  ventilation. 


E.  THESIS  OUTLINE 

This  thesis  describes  the  numerical  model,  its  derivation,  and 
application.  In  Chapter  2,  the  governing  equations,  initial  and  bound¬ 
ary  conditions,  and  the  various  submodels  employed  are  discussed. 
Chapter  3  presents  the  derivation  of  the  finite  difference  equations. 
The  use  of  the  control  volume  method  in  the  spherical/cylindrical 
geometry  is  explained.  The  conservation  equations  are  presented  and 
integrated,  finite  difference  equations  are  developed,  and  the  pressure 
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correction  procedures  are  described.  Chapter  4  presents  the  experi¬ 
mental  data  for  the  internal  ventilation  model  and  compares  it  with 
the  nonventilated  case.  The  conclusions  and  recommendations  for 
future  work  are  presented  in  Chapter  5.  The  appendix  contains  the 
code  for  the  model. 


II. 


A.  GOVERNING  EQUATIONS 

1.  introduction 

The  governing  differential  equations  used  in  the  computer 
model  are  described  in  this  section.  They  are  initially  presented  for  a 
Cartesian  system  and  then  transformed  into  a  generalized  curvilinear 
coordinate  system  using  standard  tensor  notation.  Several  assump¬ 
tions  are  made  in  the  development  of  the  governing  equations.  The 
fire  is  modeled  as  an  unsteady  volumetric  heat  source  that  is  a  third 
order  polynomial  in  time,  which  resulted  from  previous  work  [Ref.  30]. 
The  effects  of  combustion  have  not  yet  been  incorporated  into  the 
^  code.  Density  varies  in  accordance  with  the  perfect  gas  law. 

Nies  [Ref.  29]  developed  a  computer  code  to  model  a  fire  in 
FIRE-1  using  Cartesian  coordinates  as  an  initial  approximation.  Ray- 
^  craft  [Ref.  30]  describes  the  code  for  the  current  spherical/cylindrical 

geometry  which  is  summarized  below. 

2.  General  Equations 

The  governing  equations  include:  conservation  of  mass  (con- 

I 

tinuity),  conservation  of  momentum,  conservation  of  energy,  and  the 
equations  of  state.  These  are  presented  below  in  Cartesian  coordi¬ 
nates  and  in  standard  tensor  notations.  The  continuity  equation  is: 

1 

P’t+  (Pui)m=  0  (2.1) 

I 
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The  momentum  equation  is  given  as: 


(pu,),t+  (pu1uJ),  =  -P,1-pGt  +  (att),J 


(2.2) 


and  the  energy  equation  is: 


(PC  pm  T) .  t  +  (  pu  £  pm  T) .  t  =  (  k  T.  j) +  [iO  +  Pu 


LI 


(2.3) 


The  stress  tensor  is  given  as: 


GiJ  ”  Peff  (U1.J+  UJ.i"  3^ijUk.k) 


(2.4) 


with  5y  being  the  Kronecker  delta,  which  equals  the  value  of  1  when 
i  =  j  and  equals  the  value  of  0  when  i  *  j.  The  dissipation  function  is: 


®  -  2«i)6,  +  K*1  -  6«)]  -  l(uu)! 


(2.5) 


The  equations  of  state  are  given  as: 


P  =  pRT 


(2.6) 


h-Cpm(T-TR)  (2.7) 

Since  the  computer  model  of  FIRE-1  is  in  a  combination  of  spherical 
and  cylindrical  coordinates,  these  equations  must  be  transformed  into 
a  general  curvilinear  coordinate  system  (01,  02,  03).  Yang,  et.  al.  [Ref. 
20]  outlines  this  process,  using  the  rules  established  by  Eringen  [Ref. 


31].  The  generalized  orthogonal  coordinates  are  transformed  as 
follows: 


x,->e 

with  a  scale  factor,  hi,  for  curvilinear  coordinates  given  as: 


(2.8) 


=  8,  =  J 


fdx)) 

.Wi 

,d0‘  , 

lae\ 

(2.9) 


The  scale  factor  is  a  component,  therefore  the  summation  rule  does 
not  apply  to  the  subscript  of  hi.  Reference  31  gives  the  scale  factors 
in  cylindrical  coordinates  as: 


h ,  =  r  =  6 


(2.10) 


h2  a  1 


(2.11) 


h3  =  l 


In  spherical  coordinates,  the  scale  factors  are: 


h  =  r  sin  0  =  02  sin  03 


(2.12) 


(2.13) 


h2  =  1 


(2.14) 


h  3=  r  =  0 


(2.15) 
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The  covariant  and  contravariant  metric  tensors  of  orthogonal 
coordinates  are  given  as:  i 


gtj  =  =  8,  h.hj 


«■-  5’ 


h.hj 


The  vector  tangent  to  the  uj  curve  at  P  is  given  as: 


g#  u 


(J) 


Ui "  h. 


and  the  velocity  vector  is  given  as: 


u‘  = 


u 


tt  > 


ht 


(2.16) 


(2.17) 


(2.18) 


(2.19) 


In  generalized  orthogonal  coordinates  (Ref.  20],  the  continu¬ 
ity  equation  is: 


Pt  + 


_l _ a_ 

y/g  ae' 


(2.20) 


and  the  energy  equation  becomes: 

<pC-T>,+7TiH^  p  u‘*r) 


_i _ a_ 

Vg  ae1 


fvi 


+  s, 


7 


(2.21) 
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with  the  momentum  equation  given  as: 


u1  uJ 


(pu,)t  +  Vg  ae'  r1  Uh 


^  +  pG‘  + 


1  a 


Vg^ 


Vg  aeJ 


) 


!  ah 


h.hi  ae- 


^(puV-^) 


(2.22) 


3h 


+  -j-V - r  (  puju‘  -  a1. ) 

h«hj  ae  v  J' 


The  stress  tensor  is: 


h  A.  (U!)  +  ill  _2.  ,  ui, 

h,  ae'  *v  ae1  V 


3  feta  ,  /—  _U 

h.hj  aem  lvg  h 


(2.23) 


and  the  dissipation  function  is: 


<N 

II 

e 

tej] 

5, + 

L  j  J 

2 

3 


(2.24) 


The  only  difference  between  these  equations  and  the  cartesian  coor¬ 
dinate  equations  is  the  additional  terms  in  the  momentum  equation 
for  Coriolis  and  centrifugal  forces.  In  the  energy  equation,  several 
terms  have  been  lumped  together  in  the  source  term: 
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(2.25) 


Sf  =  |i  O  +  P 


1 

V5 


The  heat  source  term.  Shs.  is  nonzero  only  In  the  fire,  since  gas  radia¬ 
tion  effects  have  yet  to  be  incorporated  into  the  computer  model. 
Furthermore,  since  the  present  study  deals  with  turbulent  flow,  the 
conductivity,  keff,  and  dynamic  viscosity,  peff,  are  the  effective  quanti¬ 
ties  which  include  both  the  laminar  and  turbulent  contributions. 


B.  INITIAL  AND  BOUNDARY  CONDITIONS 

In  order  to  solve  the  governing  equations,  both  initial  and  bound¬ 
ary  conditions  must  be  applied  to  the  model. 

1.  Initial  Conditions 

The  initial  conditions  of  the  model  are  the  same  as  the 
conditions  immediately  prior  to  the  ignition  of  the  fire  in  FIRE-1. 
The  air  within  the  vessel  is  assumed  to  be  totally  at  rest,  so  the  entire 
velocity  field  is  set  equal  to  zero.  The  forced  ventilation  does  not 
begin  until  the  fire  starts,  so  that  the  velocity  field  due  to  the  forced 
ventilation  builds  as  the  fire  starts  to  burn.  The  temperature  of  the 
field  is  uniform  and  equal  to  the  ambient  temperature,  which  corre¬ 
sponds  to  a  nondimensional  temperature  of  1.0.  Pressure  and  density 
distributions  are  due  to  the  static  equilibrium  distribution  inside  the 
tank. 

2.  Boundary  Conditions 

The  pressure  vessel  forms  a  solid  wall  around  the  entire  area, 
so  all  velocities  on  the  wall  are  zero;  this  satisfies  the  no-slip  condi¬ 
tion.  Since  there  is  no  mass  flux  through  the  wall,  all  velocities 
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normal  to  the  wall  are  set  equal  to  zero.  Temperatures  on  the  inside 
of  the  wall  are  equal  to  the  temperature  of  the  fluid  immediately  adja- 


cent  to  the  wall  eliminating  temperature  discontinuities. 

ing  equations  describe  these  boundary  conditions. 

The  follow- 

ul  =  0 

(2.26) 

Tsurf  —  Tfluid 

(2.27) 

Continuity  of  heat  flux  must  be  met  at  the  walls. 

q'  kf  3n  "  "k*  an 

(2.28) 

with  n  representing  the  normal  direction  towards  the  center  of  the 

vessel  and  qr  representing  the  thermal  radiation  energy.  There  is 

heat  conduction  through  the  walls  and  heat  convection  from  the  exte¬ 
rior  walls  to  the  environment  at  the  ambient  temperature. 

Due  to  the  cylindrical  and  spherical  geometry,  there  is  a  sin¬ 
gularity  at  a  radius  of  zero  which  requires  special  treatment.  Several 
different  methods  of  correcting  this  problem  are  discussed  by  Yang,  et 
al.  [Ref.  20:pp.  167-168].  The  method  chosen  for  this  model  involves 
applying  continuity  to  two  consecutive  radial  control  volumes  placed  in 
the  vicinity  of  radius  equal  to  zero.  Of  all  the  methods  investigated, 
this  was  found  to  give  the  best  representation  of  the  flow  and 
temperature  flow  fields. 
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The  boundary  conditions  for  the  control  volumes  adjacent  to 


An  algebraic  model  is  used  to  predict  the  average  values  of 
the  dependent  variables.  More  complicated  models  could  be  used,  but 
the  increase  in  computing  time  does  not  warrant  their  use.  Nee  and 


Liu  [Ref.  32]  developed  a  model  that  obtains  the  effective  viscosity,  |iefr. 
in  recirculating  buoyant  flows  with  large  variations  in  turbulence  levels. 
The  equation,  after  being  transformed  to  the  generalized  orthogonal 


coordinate  system,  is: 


where  Prt  is  the  turbulent  Prandtl  Number  and  the  Richardson  Num¬ 
ber,  Ri.  is  given  as: 


H_ 

n  •  g 

'fdu2' 

A  an , 

)nf]  +  [ 

(©»  4 

(2.30) 


with  fi  a  unit  vector  in  the  direction  opposite  to  gravity  and  1/H  the 
nondimensional  mixing  length  parameter: 
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where  K  is  an  adjustable  constant.  The  effective  conductivity  is 
defined  by  the  following  equation: 


1  1  Heff 

eir  “  Pr  +  Prt 


(2.32) 


2.  Conduction  Model 

As  the  fire  progresses,  the  heat  energy  transferred  to  the 
environment  becomes  increasingly  important.  This  requires  a  model 
for  the  heat  conduction  through  the  vessel  walls.  The  energy  transfer 
is  treated  as  unsteady,  one-dimensional  heat  conduction  through  the 
wall  and  convection  with  a  constant  heat  transfer  coefficient  at  the 
wall  exterior.  The  energy  equation  in  this  case  is: 

fP.C^T),-4--|r  (VI  k.T.jg*)  +  S 

V8  (2.33) 

with  ps  Cps  being  the  heat  capacitance  of  the  wall  and  ks  being  the 
conductivity  of  the  wall. 

3.  Radiation  Model 

The  radiation  model  is  described  in  detail  by  Raycraft  [Ref. 
30:pp.  22-44]  but  is  summarized  below.  The  radiation  model  used  is 
based  on  three  assumptions.  First,  the  model  only  considers  surface 
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radiation;  this  means  that  the  gas  and  smoke  inside  the  tank  is  con¬ 
sidered  to  be  transparent.  Second,  all  surfaces  are  modeled  as  grey 
surfaces,  with  radiation  diffusely  distributed.  Third,  the  tank  walls  and 
the  flame  of  the  fire  are  treated  as  surfaces.  The  radiation  model  is 
based  on  the  net  radiosity  model  discussed  by  Sparrow  and  Cess  [Ref. 
33 J.  The  net  rate  of  heat  loss  per  unit  area  is  given  as: 


(2.34) 

with  the  following  definitions: 

G,=  ,_'ei<W 

(2.35) 

^-x;' 

(2.36) 

^fj  —  (  1  —  Ei  ) 

*  «  “  e, 

(2.37) 

Fai-aj  is  the  view  factor  for  the  radiation  emitted  by  the  surface  i  and 
incident  upon  surface  j.  Generally,  it  is  given  as 

1  C  f  cospjCOsPjdAi 

FAi-Aj"A,  JA  nr2 

Ja,  J  (2.38) 

The  view  factor  calculations  are  given  in  detail  by  Raycraft  [Ref.  30:pp. 
29  through  44]. 
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The  internal  ventilation  model  allows  the  user  to  set  up 
forced  internal  ventilation  in  the  field.  This  would  normally  represent 
outlets  of  the  ship’s  ventilation  system,  but  could  also  model  ventila¬ 
tion  due  to  damage  (i.e.,  ruptured  air  lines  or  ventilation  ducts)  or 
damage  control  smoke  removal  equipment.  The  internal  ventilation 
model  defines  a  velocity  in  one  or  more  control  volumes. 
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m.  FINITE  DIFFERENCE  EQUATIONS  AND  CALCULATIONS 
A.  INTRODUCTION 

The  numerical  solution  for  the  computer  model  has  space  and 
time  as  the  independent  variables,  and  velocity  (in  three  directions), 
pressure,  temperature,  and  density  as  the  dependent  variables.  With 
six  unknown  dependent  variables,  six  equations  are  needed  to  obtain  a 
solution.  The  conservation  of  mass  equation  (Eqn.  2.20),  conservation 
of  energy  equation  (Eqn.  2.21),  conservation  of  momentum  equations 
(Eqn.  2.22),  and  the  equation  of  state  (Eqn.  2.6)  are  used.  These 
equations  are  discretized  in  a  method  similar  to  that  described  by 
Doria  [Ref.  34],  based  on  the  general  discretization  concept  presented 
by  Patankar  [Ref.  35].  Doria  divided  the  domain  into  separate  control 
volumes  and  wrote  conservation  equations  for  each  cell  in  an  integral 
form.  These  integral  equations  became  a  set  of  finite  difference  equa¬ 
tions  which  could  be  solved  to  provide  a  solution. 

In  the  flow  field,  each  cell  is  treated  as  a  unit,  with  one  value  of 
each  property  reigning  throughout  the  cell.  The  center  of  the  cell 
determines  the  value  of  temperature,  pressure  and  density.  The 
velocity  grids  are  staggered  one-half  cell  away  from  the  center. 
Patankar  [Ref.  35:pp.  115-120]  describes  two  problems  which  arise 
when  the  velocity  cells  are  coincident  with  the  basic  cells.  First,  the 
velocity  at  the  staggered  cell  center  is  calculated  as  a  function  of  the 
pressure  differential  between  the  two  adjacent  nonstaggered  cells.  If 
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the  cells  were  not  staggered,  the  velocity  would  be  calculated  based  on 
the  pressures  of  adjacent  cells,  which  are  twice  as  far  away  as  in  the 
staggered  cell  case.  Second,  staggered  cells  preclude  unrealistic 
oscillating  solutions. 

Employment  of  primitive  variables  presents  a  problem  with  the 
coupling  of  the  pressure  term  in  different  equations.  Others  have  used 
the  stream  function  to  eliminate  this  coupling  [Refs.  14-19]  but  in  the 
present  case,  with  the  desire  to  determine  the  pressure,  this  method 
is  inappropriate  for  the  reasons  cited  in  Chapter  1.  In  the  computer 
code,  an  iterative  procedure  is  used  to  estimate  pressure.  To  ensure 
that  the  results  are  physically  realistic,  a  numerical  method  must  not 
violate  the  conservation  properties.  Patankar  [Ref.  35:pp.  120-126] 
and  Doria  [Ref.  34:pp. 26-32]  describe  the  method  of  satisfying 
conservation  by  correcting  the  estimated  pressure  to  ensure  that  mass 
is  conserved  at  every  cell.  In  addition  to  the  local  pressure  correction, 
a  global  pressure  correction  is  included  to  account  for  the  total  energy 
change  in  the  system,  as  described  by  Nicolette,  et  al.  [Ref.  4]. 

In  the  finite  difference  method,  differential  elements  are  replaced 
by  finite  quantities  in  the  integral  form  of  the  equations.  Many 
methodologies  have  been  developed  for  dealing  with  the  differencing 
techniques  and  each  has  inherent  features  and  problems.  The  QUICK 
methodology  (Quadratic  Upstream  Interpolation  for  Convective  Kine¬ 
matics)  developed  by  Leonard  [Ref.  36]  is  used  here  for  the  convective 
terms.  QUICK  uses  locally  two-dimensional  quadratic  interpolation 
functions  for  estimating  control  volume  face  values  and  gradients  of 
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transported  variables.  It  is  third-order  accurate  and  permits  practical 
grid  sizes.  Yang  [Ref.  13]  employed  QUICK  in  the  coupled  momentum, 
energy,  and  pressure  equation  solutions  for  three-dimensional  flow  in 
tilted  rectangular  enclosures. 

B.  CONTROL  VOLUME 

When  defining  the  problem  to  be  solved  numerically,  the  flow 
field  is  divided  up  into  finite  elements,  or  cells  that  together  make  up 
the  entire  field.  At  the  center  of  each  cell  is  a  grid  point  that  is 
defined  as  the  governing  point  of  the  cell.  In  discussing  the  grid 
points,  the  following  nomenclature  is  used.  The  grid  of  interest  is 
called  P  (I,  J,  K),  with  adjacent  grids  being  defined  as:  East  (1+1,  J, 
K).  West  (1-1,  J,  K).  North  (I,  J+l,  K).  South  (I.  J-l,  K),  Front  (I,  J, 
K+l).  and  Back  (I.  J,  K-l).  The  boundaries  of  the  cell  with  grid  point 
P  are  designated  by  lower  case  letters,  or  e,  w,  n,  s,  f.  and  b.  Figures 
3.1  and  3.2  shows  typical  cells  in  cylindrical  and  spherical  coordinate 
systems. 

As  previously  discussed,  velocities  are  defined  in  a  staggered  grid 
system.  To  illustrate  this,  Figure  3.3  shows  a  two-dimensional  cell; 
Figure  3.4  shows  the  location  of  the  staggered  velocities  around  the 
grid.  The  velocity,  u1,.  for  the  basic  cell  is  located  on  the  west  face; 
uj  is  on  the  south  face;  and  u£  (not  shown)  is  on  the  back  face.  In  all 
cases,  the  staggered  cell  system  is  offset  one-half  cell  from  the  pri¬ 
mary  cell  system. 
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Figure  3- 1 .  Basic  Cylindrical  Cell 
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Figure  3-3.  Two-Dimensional  Basic  Cell 


Figure  3-4.  Two-Dimensional  Staggered  Cell 


30 


C.  INTEGRATION  OF  CONSERVATION  EQUATIONS 

To  discretize  the  conservation  equations,  it  is  first  necessary  to 
put  them  into  an  integral  form  by  integrating  over  the  volume  of  a  cell. 
The  continuity  equation  becomes: 

{|^h1h2h3de'de!d8% 

J[ier(puhjhs)  + aer(pu!h3hl)  + 

+  -^-(p  u3h,  h2)  de1  de2  d03  =  0  (3.1) 

30 

and  the  energy  equation  is: 

3  (P  af  T)  h‘  h*  h3  d0'  d0’  de3  +  J  [^|t  Cp  CP»  u'  T  hs  ha)  + 

^(PC^u’Th1hJ)tA(pC„u>Th,  hj)  ]  d8'  d8!  d8s  - 

J  [if7  (q'  h3  h3>  +  ^  W  h.  h»)  +  ^  (I5  h.  h3>  ]  d6'  d02  d0  + 


with: 


/  S  hj  h2  hgde1  de2  de3 


k  3T 
h,  301 


(3.2) 


(3.3) 
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The  momentum  equations  are: 


,  -v  f  d  T  fh,  h2  h, 

J  3F  (P  u'>  «>,  K  h3  d0'  de2  d93  +  J  [  {  hj 


p  u1  uJ 


de1  de2  de3 


=  J-  ~r  (p  — de1  d02  d03  +  /p  Gt h,  h2 h3 de1  de2  de3 


far. 

9  hlh2h3>| 

CD 

[  ro 

kj  j 

de1  de2  de3 


f  h,  K  h; 
h,  hj 


r  h1h2h3 
hjhl 


3h ,  .  „ 

— j  [pu’u'-o  ) 
50 


ah, 

— f  ( p  uJ  uJ  -  or®  ) 
30 


de1  de2  de3 


de1  de2  de3 


(3.4) 


D.  CONTINUITY  EQUATION 

Once  the  governing  equations  have  been  integrated,  the  differen¬ 
tial  elements  are  replaced  with  finite  quantities.  Three  separate 
differencing  methods  are  used  in  the  computer  model:  forward  dif¬ 
ferencing  for  time,  central  differencing  for  the  diffusion  terms,  and 
QUICK  for  the  convection  terms. 

In  forward  differencing,  the  future  value  of  a  given  parameter  is 
found  by  adding  its  present  value  to  the  net  change  over  a  finite  time. 
This  change  is  described  by  the  rate  of  change  (slope)  multiplied  by 
the  time  step.  For  example. 
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pn  =  p"-1  +  m  At 


(3.5) 


with  p11*1  representing  the  present  value  of  density,  m  is  the  rate  of 
change,  pn  is  the  future  value,  and  At  is  the  time  step.  Substituting 
this  into  the  continuity  equation  (3.1)  results  in: 

at  dv  =  At  h>  h>  h3 Ae  Ae  A6  =  £~At—  AV  (3-6) 
By  evaluating  the  integral,  the  continuity  equation  becomes: 

(  P"  -  P”'1  )  ^  +  [p  u1  h2  h3  d02  d03]£  -  [p  u1  h2  h3  d02  d03]^ 

+  [p  u2  h,  h3  d©1  d03]  -  [p  u2  h,  h3  d©1  d03]  +  (3.7) 


+  [p  u3  h,  h2  d0l  d62]  -  [p  u3  h,  h2  dO1  d02]  =  0 

f  b 

The  mass  flux  rate,  G,  is  evaluated  at  each  of  the  six  cell  faces: 

„  T  (Pp(h,  A01  )1+J  +pE  (h,  A01  )t  )  " 

Ge  =  (pu  )e  =  ue  7~ — -7- - - — — r—  \~ 


(pu>  ), 


Gn  =  (p  u2  )n  =u2 


(Ppl*1! 

ab1),, 

+  pE(h]  A01),) 

((h, 

Ae1  ),+1 

+  (  h,  A01 ),  ) 

(pP(h, 

Ae1),., 

+  Pw  (h,  a©1  ),) 

((h, 

Ae1),., 

+  (  h,  A01  ),) 

(Pp(h2 

Ae2  )J+1 

+  PN  (h2  A02  )j) 

(<hs 

Ae2  )J+, 

+  (  h2  A02  )j  ) 

(3.8) 


(3.9) 


(3.10) 
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G,=  (p  u2  ),  =  a2 


Gf=(pu3)f=Uf 


Gb=  (p  u3  )b  =  ub 


'  (Pp<h= 

Ae2  )M 

+  PN  (h2  A02 

01 

(lh, 

tlh^e2), 

)  J 

[(Ppth, 

AS*),., 

+  Pp  (ha  Aes 

0 1 

.  0h3 

Ae3)k+1 

+  (h3Ae3), 

)  J 

(Pp<h3 

Ae3  )k_, 

+  pB(h3A83 

>J1 

.  0h3 

Ae3),., 

+  (  h3  A03  )k 

)  J 

with  the  area  of  the  faces  given  as: 

Ae  w  =  (  h2  A02  h3  A03  )e, 


(3.11) 


(3.12) 


(3.13) 


(3.14) 


An.,  =  (  hj  A91  h3  A03  )„., 


(3.15) 


Af.b  =  (  h,  A01  h2  A02  )  f  b  (3.16) 

In  the  finite  difference  format,  the  continuity  equation  becomes: 

(pn  -p"-1)  AV 


At 


+  Ge  -  Gw +  G„  -  Gs +Gf- GB  =  Smp  (3.17) 


with  Smp  defined  as  the  mass  source  term.  In  an  analytical  solution, 
this  mass  source  term  is  zero,  but  in  numerical  solutions  it  is  a  finite 
nonzero  term.  Through  iteration,  the  numerical  solution  converges 
and  the  mass  source  term  approaches  zero.  Instead  of  converging  to 
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zero,  the  source  term  is  set  equal  to  zero  when  it  is  less  than  or  equal 
to  10-70. 


E.  ENERGY  EQUATION 

The  integrated  energy  equation  is: 

[l  P  Cp.  T)‘-|pCF  T)"‘']-^-+G.(Cp,nT).A.-G„(CpmT)wAw  + 


Gnl*-'poiT)nAn-G,(CpraT),A.  +  Gf(CpmT)fAf-Gb(CpmT)bAb  = 


=  ke  Ae 


3T  ^  _ 

i^ae1  J 


kw  Aw 


'  9T 

,  hi  90’ 


k„  An 


_JT_\ 
h2  ae2  J  " 


-k.  A. 


f  dT 

l  h2  902 


kf  Af 


f  3T 

U3003 


+  kbAb 


9T 

h3  ae3 


+  Sr  AV 


(3.18) 


where  all  k’s  represent  effective  values.  Sf  is  the  source  term  and 
includes  dissipation,  radiation,  pressure  work,  and  all  internal  heat 
sources.  J  is  the  total  heat  flux  resulting  from  convection  and 
conduction. 


Je.w  = 


(  P  Cpm  u1  T)  -  k 


aT 


*  h.de1 


(3.19) 


Jn.,= 


(  P  C u2  T )  -  k.„ 

h2  d0 


(3.20) 


J 


I 


| 
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(pCp.  u3  T) 


dr  - 

h3  ae3 . 


(3.21) 


These  equations  are  the  01.  62,  and  03  components  of  the  total  heat 
flux.  The  subscripts  refer  to  the  face  to  which  they  correspond.  The 
term  (p  Cpm  u1  T)  causes  problems  since  u  is  evaluated  at  the  cell  sur¬ 
face.  but  all  other  values  are  evaluated  at  the  cell  center.  Because  of 
this,  when  using  these  equations,  the  fluxes  must  be  expressed  in 
terms  of  Cprn,  p.  and  T  at  the  point  P  and  its  neighbors.  Substituting 
these  equations  into  the  integrated  energy  equation,  the  finite  differ¬ 
ence  energy  equation  is: 

[  (p  Cpm  T)”  -  (p  Cpm  T)"'1  ]  ae-j1aw  + 

+  J*  An- J*  A,  +  Jf3Af- J3  Ab=S  AV  (3.22) 


Of  the  many  finite  differencing  methods,  the  QUICK  scheme  is 
used  with  the  convective  terms  because  it  accurately  predicts  the 
dependent  variable  values  at  the  control  volume  surfaces  with  stable 
properties,  QUICK  has  the  relative  accuracy  of  the  central  differenc¬ 
ing  scheme  coupled  with  the  stability  of  an  upwind  scheme.  It  uses  a 
parabolic  polynomial  interpolation  to  fit  the  control  volume  at  three 
adjacent  nodes.  Yang  [Ref.l3:pp.  77-89]  describes  QUICK  in  one,  two, 
and  three  dimensions.  Raycraft  (Ref.  30:pp.  63-74]  developed  the 
finite  difference  energy  equations  using  the  QUICK  scheme.  Since 
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this  method  Is  used  in  the  computer  model,  the  derivation  is  repeated 
here. 

The  quadratic  interpolation  for  a  nonuniform  grid  is  given  as: 


(p  C,„  u  T)e  =  Gc  C_  -  £  CURVt 

(P  Cm  VT)^G.  .[(-hlZjl)  -  i  CURV, 


(3.23) 


(3.24) 


Figure  3.5  shows  the  one-dimensional  scheme.  The  upstream 
weighted  curvature  terms  CURV  are: 


CURVe 


T  -T  > 

p  w 

AX  , 

w  / 


if  Ge  >  0 


ax: 

AX 


i+i 


T  -T 

EE  E 

AX_ 


T  -T 

E  1  P 

AX. 


if  Ge  <  0 


(3.25) 


CURV  = 


ax; 

AX 


i+i 


{T  -T 

'  P  w 

AX  „ 


T  -  T 

w  *  ww 

AX_ 


if  Gw>  0 


AXl  fTE-Tp  Tp-T  N 
AX,  1  AX,  AX  w  J 


if  Gw  <  0 


(3.26) 
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with 


AXe  =  0.5  (  AX,  +  AX1+1) 

AXW  =  0.5  (AX,  +  AX(1 ) 

AX,*  =  0.5  (  AX  j+1  +  AX  !+2  )  (3.27) 

AXW  =  0. 5  (  AX,_,  +  AX  ,_2  ) 

In  generalized  orthogonal  coordinates,  the  equations  becomes: 

(PC^°‘T)<  =  O.C^.(T^Tl  -  i  CURVN.)  (3.28) 

(P  (-pm  u2  T)^  =  G w  Cpp,  w  -  1-CURVN.)  (3.29) 


with 


CURVNe 


(h,  A61  )2e  f  Te  -Tp 
(h,  A01),  [(h,  A91), 


Tp  -  Tw  ' 
(hj  Ae’)w> 


if  Ge  >  0 


(h,  A91 ),  f  Tee  -  Te 
(h,  Ae1),^  |^(h,  A01 )« 


te-tp  - 
(h,  aq1)^ 


if  Ge  <0 


(3.30) 


CURVNW 


(hi  A61  )2W  Tp  -  Tw 
(h,  A0')1+1  ((h^e1). 


Tyy  T  wv/ 
(h,  A01)™, 


if  Gw  >  0 
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1  «2 


(  T  -  T  T-T 

*  p  1  n  1  n  *  ti/  l 


(h,  A0  ) 

(hj  A01),  (jh,  A01),  "  (hj  A01 ) , 


if  G w  <  0  (3.31) 


and 


(h,  A01)  =0.5  [(h1A01)  +(h1A01)  J 

(hj  A01)  =0.5  ^(hjA©1)  +(hJA01)  ] 

(hj  A01)  =  0.5  [  (hjA©1)  +(h,A0I)  1  (3.32) 

“  L  1+)  1+2  J 

(h  A01)  =0.5  [  (h.A©1)  +(h.A0’)  1 

*»  L  1-1  1-2  J 


The  conventional  finite  difference  form  of  Eqn.  3.22  for  a  one- 
dimension  system  is: 


[  (P  Cpm  T)"  -  (P  Cpn,  T)"'1  ]  h, 


AV 

At 


=  AeTe  +  AWTW  -  ApTp  +  s(hj  A01 ) 


(3.33) 


Using  a  semi-implicit  tri-diagonal  solution  procedure,  both  Tee  and 
Tww  are  included  in  the  source  term.  The  remaining  coefficients  are: 


A.=  ^(-7f;.t3|G;|)  +  Cp..w(-G.  +  |Gtt|)  +  T~~T  13-34) 

hjA0 


16 


Aw  = 


cpm.w (9G.  +  3  |GW|) 
16 


+  Cpm.e(Ge  +  lGel)  + 


hjA©1 


(3.35) 
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(3.36) 


Ap  =  4  (G.  Cpm.w  -  G,Cpmc)  +  3  (| Gw |  Cpm  w  +  |GJ)  + 

hjAb 

Sp  =  Sh,  4e‘  -Cpm,(|Gt|-G.)TEE-  Cpm„(|Gw|+Gw)Tww  (3.37) 

The  three-dimensional  QUICK  algorithm  uses  locally  quadratic 
interpolation  of  temperature  through  each  control  volume.  Figure  3.6 
shows  the  calculation  cell  for  a  three-dimensional  uniform  rectangular 
grid.  The  cylindrical/spherical  grid  system  used  in  the  computer 
model  is  more  complex,  although  conceptually  the  same.  Yang  [Ref. 
13]  discusses  the  evaluation  of  the  curvilinear  and  temperature  terms. 
Basically,  curvature  terms  are  calculated  for  each  of  the  temperatures 
and  substituted  for  the  convective  heat  flux  terms.  Heat  flux  is  calcu¬ 
lated  and  substituted  into  Eqn.  3.22. 

After  separation  of  variables,  the  energy  equation  becomes: 

[ATp+(pCpmp)"',]^-Tp  =  A^Te+A;Tw  +  ATnTn 

(3.38) 

+  aJts+aJtf  +  a^tb+stu 


with  the  additional  source  term. 


Su  (p  Cpm.pT)  At  -^EER  +  AwwR  +  A 


NNR 


(3.39) 


+  ^SSR  +  ^FFR  +  ^BBR 
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CN  =  Gn  *  * 

(h3^)„ 

(h.Ae') 
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Thermal  conductivity  is: 
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V  (>2  A92)j 

k,.,*(ha  A02) 

J+l 

(h2  A92; 

)  +  (h,A02) 

J 

1 

1 

t  1 

VK  A02) 

k,-.  *(h2A02) 

J 

J-l 

(h2  A92; 

1  +  (h2  A02) 

J  H 

1 

1 

,  1 

k,*(h,  A01) 

k|+i  *  (  A0|  ) 

1 

/  .  1  \ 

t+1 

/.  J2\ 

(3.40) 


(3.41) 
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kw  = 


1 

+  1 

k,  *(h,  Ae1)^ 

k|-,*(h,Arf)  _ 

(h,  AO1) 

+  (h,  AO2) 

1  1-1 

1 

1 

+  1 

kk*(h3  AO3) 

k 

kk.,’(h3Ae3) 

k+1 

(h3  AO3) 

+  (h3  A03) 

k  k+1 

1 

1 

+  1 

kk*(h3  AO3) 

k 

/.  3\ 

kk_i*(h3  A03) 

k-l 

/.  _  3  \ 

CONDN1 =  kn * 


h3  A03  *  hj  A01 


CONDS1  =  k, * 


CONDE1  =  k  * 


CONDW 1  =  kw  * 


h2 

A02 

h3 

A03 

•h* 

A01  ' 

h2 

A02 

h3 

A03 

A02 

hi 

A01 

h3 

A03 

*h2 

A02 

h,  A0 


(3.42) 
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CONDF  1  =  kf  * 


h,  Atf  *  h„  AGP 


h3A0 


(  hj  A01  *  h2  A02 


CONDB  1  =  k  b  * 


h3A0 


In  equations  (3.41)  and  (3.42),  all  k’s  are  the  effective  values. 


CWP  = 


Ice  I  +  ce 

(h,  Ae')c 

16 

(h,  A6') 

1 

Ice  |  -  ce 

(h,Ae')c 

16 

(h,  Atf) 

1+1 

lew  |  +  cw 

(h,  A9')w 

16 

(h,  Ae'),.1 

lew  |  -CW 

(h,  Ae')^ 

16 

(h.  A6?) 

|cn|  +  CN 

(h2  A62) 

n 

16 

(h2A82)j 

|CN|  -  CN 

(h2  Atf)n 

16 

(h2  A#) 

J+l 

(3.43) 
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CSP  = 


CSM  = 


CFP  = 


CFM  = 


CBP  = 


CBM  = 


EE 


1 cs I  +  cs 

(h,  Atf). 

16 

(h,  A62)]  i 

Icsl -  cs 

(h2Ae?)> 

16 

(h,  A9a) 

J 

I CF  |  +  CF 

16 

(h3A63)i_ 

1 CF  |  -  CF 

(h3A93)( 

16 

(h3A®“) 

k+1 

ICB  1  +CB 

(ha  A93) 

b 

16 

(h3  A93) 

k-1 

I GB  |  +  CB 

(h3  A93) 

b 

16 

(h3  A9“) 

k 

-CEM  * 

(h,A9')_ 

(h ,  - 

^e1) 

« 

-  CWP  * 

(h,  A9') 

w 

WW 


(h,  «') 
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- CNM  •  (h,  A6S) 
(hs  A62) 

on 

-CSP  *  (h  A02  ) 

4  T  =  _ _ _ Ll 

58  (h.Afl2) 

•• 

-  CFM  *  (h,  A63) 

\T  - - L 

(h»  A03)„ 

-  CBP  *(h3  AG3) 


A 

^EER 

=  aL 

*  T*  * 

1  1+2 

CP“i»* 

A 

WWR 

-  at 

“  ww 

*  * 

1  1-2 

A 

x  *NNR 

=a;n 

•  * 

J+2 

c 

Pm  J.» 

“^SSR 

=  aL 

*  rr  * 

J-2 

cp™ 

■^FFR 

*  'I'  * 

1  k+2 

CP"i  k.a 

A 

^BBR 

=  Abb 

*  «T'  • 

1  k-2 

^P“k-i 

The  intermediate  coefficients  are  : 


-0.5  *  CE  +  CEP  +  CEM 


+  CWM 


0.5  *  CW  +  CWM  +  CWP 


+  CEP  * 


-0.5  *  CN  +  CNP  +  CNM 


+  CSM  * 


A„  =  -0.5  *  CF  +  CFP  +  CFM 


+  CBM 


♦ 


* 


(h3Ae3)' 
1  +  (h3  A0“) 

L  rr  J 

(  hs  A8’)  ^ 


AB1  =  0.5  *  CB  +  CBM  +  CBP 


(h3A93)b' 
1+  (haA#) 

-  bb  . 


+ 


+  CFP 


(h3  A#)f 
(h3A93) 

b 


The  coefficients  are: 


AE=AH*Cpm£+  CONDE1 
ATw  =  Aw  *  Cpm  w  +  CONDW1 
ATn  =  An|  *Cpm„  +  CONDN1 
A!  =  ASI  *  Cpm  s  +  CONDS1 
Ap  =  Afi  *  Cpm  j.  +  CONDF1 
ATb  =AB,*CpniB  +  CONDB1 
APT  is  the  sum  of  all  the  values  of  A. 


(3.50) 


(3.51) 


(3.52) 


I 


! 
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Ap  =  Cpm  p*  (Ag+A^+A^ +Ag  +  Ap  +  Ag  +  A]a:  +  A^w  + 

+  A^n  +A^  +  A^  +AgB)  +CONDE1  +  CONDW1  +  (3.53) 

+  CONDN2  +  CONDS 1  +  CONDF 1  +  CONDB 1 


F.  MOMENTUM  EQUATION 

The  integrated  momentum  equation  is  given  as: 

(pu‘)t  V  +  Men  Ae  - M'J  Aw  +  Mn12  An  -  M1,2  A,+ 

(3.54) 

+  Mf  Af-  Mb  Ab  =  S 

with  Ai.  the  area  of  the  staggered  cell  given  by  Eqns.  3.14  through 
3.16.  MJJ  represents  the  total  momentum  flux  in  the  9!)  direction  due 
to  convection  and  diffusion  for  the  u1  velocity  component.  M  is  evalu¬ 
ated  at  the  face  noted  and  is  given  by: 

MS  =(pu‘  uJ  ~o\)  (3.55) 


The  source  term  includes  body  force,  pressure  gradient,  centrifugal, 
and  Coriolis  forces  and  for  u1  is  : 


S^-P.  Ae  +  Pw  Aw+  pG’AV  -  Mp(An-A.)  - 

1 1  oo  13 

-Mp  ( A  f  -  Ab )  +  (M  p  +  M  p  )  (Ae-Aw) 


(3.56) 


Yang  et  ai.  (Ref.  20:  pp.  11-13]  describes  the  concept  of  a  “stress- 
flex  formulation”  as  it  applies  to  a  curvilinear  coordinate  system. 
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Stresses  are  calculated  from  previous  information  and  the 
given  in  the  current  iteration.  The  momentum  flux  is: 


M*  =  M  +  (  ^  ) 

with 


A  «  ,  .  J 

M  =  puu  -  6, 


The  u1  momentum  equation  becomes: 


All  A  11  A  12 

(pu)t+  Me  Ae  -  Mw  Aw+  Mn  An 


A  12 

-  M9  A,+ 


A  13  A  13 

+  Mr  Af  -  Mb  Ab 


A 

s 


S  =  S  -  (X-o'j)  Ae  +  (^-o1,)  A 

c  w 

-  An  +  A.- 

n  s 

-  (^-°0  Ar+  (^-oO  Ab 

f  b 

The  momentum  equation  for  61  is  given  as: 


w 


source  is 


(3.57) 


(3.58) 


(3.59) 


(3.60) 


(3.61) 
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(aUp  +pn_1  -^)u’p  =  a“  ui  +A“  u5w  + 


+  A“'  u‘n  +A>i  +  A"*  u‘  +Aub‘u!b  +  suul 


(3.62) 


The  intermediate  mass  flow  rates  per  unit  area  are: 


G  =  u2 

w  nc 


^nw  Ut-l.j+l 


G_  =  u2 


f  rpj*i(haA0a)  +  Pj(ha  A6?)  1] 

y  I 

I  ( h2  Aea)j  +  (h2ae“)jM  | 

f  [p,-i(h!  4e’‘)J  +  Pj(h2AeJ)H]| 

{  (h1A0,)j+(ha  AB2)^  | 

[  (h 2  a02)]  +  P.-I  (hj  AeP)H]  ] 

{  (hs  Ae!)j  +  (haAes)^  I 


G<  =  U1+i 


G0  = 


f  [pj+1  (h!  A©1)  +p,  (h,  A01)  ]1 
{  (h,A9‘)  H-KAe')^  j 

,  f  [Pi-i(h!  A8‘)^p,(h,  A9')J1 

j  (h,  Ae')t+(h,  Ae')w  } 


(3.63) 


f[p1.!(h,Ae').+P,-1(h,A9')J) 

G"'u'-‘  {  (h.AS1)  +(h,Ae‘) 
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fK.(h34e?)  +Pk(»3A93)  ]) 

“  j  (h3A93)k  +  (h3W)ki  j 

f  [p,-..k.i(h34e3)  +p.-,(h3  ^e3)  1) 

( *■'»  _  __3  l  L  k  k+3  J  i 

fc  (h3*e3)  +  Ka03) 

l  k  k+1  J 

f  rPk.,(h3Ae?)  +Pk(h3A03)  ]1 

"  1  (h3A83)k+(h3A#)ki  j 

f  fp (h3A0s)  +  P|_,  (h3  A03)  1| 

P  _  „3  _L _ k _ k-I  J  I 

"  M  1  (h3A0>)  +(h3A03) 

k  k-1  J 


The  final  mass  flow  rates  for  the  control  volume  surfaces  are: 

CE  =0.5  (Ge  +  Gp)  *  (h2  A02)e*  (h3  A03)e 

CW  =0.5  (Gp  +  Gw)  *(h2  A02)w*(h3  AO3)^  (3.64) 

CN  =  (h1A01)  (h3  A03) 

n 


f[G,  (h,  A91)^  +  GTO,(h,A8')J| 
|  [(h,A0,)w+(h,  A0‘)J  | 
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/  „  ,  frGfc(h,^’)w+Gu.(h,Ae')Jl 

CB=(h,Ae)  (hJAe)<L-r7 - rf — ,  ,J  \ 

V  1  7b  v  2  7b  (  h,  A0  )  +  (h,  A0J  | 

L  w  c  J  J 


The  local  viscosity  becomes: 

VISe  =  VIS 


Visw  =  VIS,, 


(VIS,  +  VIS  +  VIS(_,  ,  +  VIS,.,) 


4.0 

(VIS^,  +  VIS 

+  VIS,_M_,+  VIS,.,) 

4.0 

(VISk+,  +  VIS 

+  vis,_,.  k+, +  vis,_, ) 

4.0 

(VISk_,  +  VIS 

+  VIS, VIS,.,) 

(3.65) 


VISM  =  VISn  * 


(  h3  A03)  (h,  A01) 


h2  A0 


VISSl  =  VIS.  * 


(h3  A03)(h,  A01) 


h2  A0 


vise  =  vise* 


(h2  A02)(h3  AQ3) 


h,  A0 


(3.66) 
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VISW1  =  VI  sw  * 


(  h2  A92 )  ( h3  A93  ) 
hj  A01 


VISF1  =  VIS,  * 


VISB1  =  VISb  * 


The  coefficients  for  the  momentum  equations  are: 


(h,Ae')(ha  A9a ) 
h3A93 

(h,A9')(b3A9*) 

h3A9S 


A 

_ 

Au 

x  EER 

EE 

A 

A° 

“WWR 

ww 

A  .. 

Au 

1  NNR 

NN 

A„„ 

Au 

SSR 

ss 

A 

AU 

FTR 

FT 

A„„ 

Au 

BBR 

CD 

k+  2 


The  values  of  the  coefficients  A  are  given  as: 


Aue  =  Aq  +  VISE1 
A^  =  A^+VISWl 


(3.67) 
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Aun  =  AN1  +  VISM 
A“  =  AS1+  VISSL 
A“  =  An+  VTSF1 
A“  =  AB1+  VISB1 


The  value  of  Aup  is  the  summation  of  all  of  the  values  of  A: 


AU  »U.AU  »U  .  U  .  U  .  U  .  U  U 

Ap  -  Af  +  Aw  +  An  +  Ac  +  A„  +  A„  +  Arr  +  A„„„  + 


EE 


WW 


AU  AU  AU  *  U 

+  ^NN  +  ^SS  +  ^FF  +  ^BB 


The  source  term  is  given  as: 


s“  -  [p(h' Ae  )„+P.-i(h.  Ae')J  AV 
"  [(h.AO  +(h»J  *^*U  + 

+  (  h2  A62 )  (  h3  A0a  )  ( P -  P, )  +  +  Awwr  +  ANBR  + 


+  A 5^  +  Appn  +  Abbr  +  RE  -  RW  +  RN  -  RS  =  RF  -  RB  + 

+  RRY  +  RRZ  -  RRX  -  Buoy  *  {sin  [ZC  (K)  ]  *  ( p  -  p^)  * 

*  (hi  Ae,)w*cos[XC(I)]  y+  )  (hj  AQ1)^ 

*cos[2C(I-  1)]}  /[(h,  A9,)w+(h]  A01)  J  AV 


(3.68) 


(3.69) 


(3.70) 
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with  XZ  and  ZC  as  the  center  of  the  basic  cell.  The  additional  parame 
ters  are  given  below. 

/  2  3\  r®n-«i-u11)*VISel 

RE  =  (h2  A0  h3  A0  )  - - r1 - - ^ - 

2  3  e  (hj  A0  ) 

C 

RW  =  (  h2  A0  h  A0  )  - 7 - pr - 

2  3  (hj  A01) 

_  W 


/.  ....  . .s\  r°‘A-(u!.i-u!)*VIS»l 

■  (h'Ae  h“A9).  - 0^? ) - 

n 


=  (h,  A01  h3  A03) 


a12  -  (u  -  u1^  )  *  VIS8 

(h3  AS’) 


RF  =  (h,  AQ1  h2  A02) 

'[  (h3A0)r 

/  i  2\  r a,3_  (u’  _uk  x)  *  vis 

RB  =  (h  A0  h  A0  )  - ^ - - 

b[  (h3A03)b 


(3.71 


d12  =  0.5  ( 


_12  ,  _12\ 


»“ -0.5(0“  WO 

(h,  A9')w+g”,  (h,A9‘) 
(h,  ie’)  +  (h,  A01) 


(3.72 


-33 

o 


^(hjAe1)  +ct“j  (hj  A01) 

W  ( 

(hi  A01 )  +  (hj  A61) 


AU1  =  u1 


AU2  = 


uj+i(h2A02) +u;(h2A02), 


2  (h2  A02) 


(hj  A01) 


Ui-l.J+l  (h2  A02)j+  <1  (h2  A02), 

2  (h2A02) 


,  M  1 

(h,  Ae  )  \/ 


AU3  = 


/[(h.  49').+  (h.^’)w] 

u i,i  (  h3  A03  )  +  u3  (  h  3  A93  ) 


2  (h3  A0?) 


(h,  A01) 


uw.k..(h3  A®3)|t+u,-,(h3  AS3) 
2  (h  3  A93  ) 


,  ,,  ) 

(h,  AS  )  }/ 


/[(h,  Ae')t+  (h.Ae1),,] 


AR  = 


P  (hi  A0l)w+  P.-i  (hi  A01), 

(hj  A0* )  +  (h,  A01 ) 


ARU1 2  =  AR  *  AU1  *  AU2 


(3.73) 
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ARU1 3  =  AR  *  AU1  *  AU3  (3.74) 

ARU22  =  AR  *  AU2  *  AU2 


ARU33  =  AR  *  AU3  *  AU3 


RRY  =  (  a12  -  ARU1 2 )  (h3A03)  ^  (hj  A01 )  -  (hx  A01)  ] 
RRZ  =  (  a13  - ARU1 3 )  (h2A02)  ^(hjA©1)  -(hjAO1)  j 


RRX  =  (  a22  - ARU22  )  ( h3  A03 )  [(h2A02)  -(h2A02)  ]  + 
+  (  a33-ARU33)  (h2A02)^  [(h3  A03)e-(h3  A©3)^] 


(3.75) 


The  momentum  equations  in  the  other  two  directions  can  be 
similarly  obtained. 

G.  PRESSURE  CORRECTION 

One  difficulty  encountered  in  employing  primitive  variables  is  the 
difficulty  in  calculating  pressure.  In  a  closed  system,  such  as  FIRE-1, 
there  are  two  causes  of  changes  in  pressure.  First,  there  are  pressure 
changes  throughout  the  field  due  to  a  net  energy  change  in  the  system. 
To  account  for  these  changes,  a  global  pressure  correction  is  applied. 
Second,  there  are  pressure  changes  locally  which  determine  the 
velocity  field.  A  local  pressure  correction  is  included  to  account  for 
these  changes. 
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1.  Global  Pressure  Correction 

A  global  pressure  correction  follows  from  the  two-dimen¬ 
sional  scheme  developed  by  Nicolette,  et  al.  [Ref.  4).  Overall  pressure 
levels  are  increased  or  decreased  depending  upon  whether  energy  is 
added  or  removed  from  the  system.  Since  the  volume  and  mass  of  the 
system  are  constant,  the  sum  of  the  local  density  times  the  local  vol¬ 
ume  will  be  constant,  and  equal  to  the  equilibrium  mass.  Summing 
over  all  of  the  cells. 

Ip;<av),  =  Zp...(4V).  (3  76) 

with  n  indicating  any  time  and  EQ  indicating  equilibrium. 

Assuming  a  perfect  gas,  density  is  a  function  of  pressure  and 
temperature  only,  since  volume  is  constant.  The  actual  values  of  pres¬ 
sure  and  temperature  at  any  time  are  the  sum  of  an  estimated  value 
and  the  global  correction. 


P=P*  +  Pg 


(3.77) 


T  =  T*  +  Tg  (3.78) 

with  superscript  *  indicating  the  estimated  value  and  superscript  ' 
indicating  the  global  correction.  By  applying  these  two  equations  and 
the  perfect  gas  law  along  with  Eqn.  3.76,  the  global  pressure  correc¬ 
tion  becomes: 
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(3.79) 


This  correction  is  added  to  the  estimated  value  from  the  previous  time 
step,  and  iterated  until  a  globally  corrected  pressure  is  obtained  which 
conserves  mass  in  every  cell. 

2.  Local  Pressure  Correction 

An  iterative  method  involving  the  mass  conservation  equation 
is  used  to  find  the  local  pressure.  Patankar  [Ref.  35:pp.  120-126]  and 
Doria  [Ref.  34:pp.  26-32]  describe  the  method  for  determining  the 
local  pressure  correction.  Initially,  the  pressure  field  is  guessed  or 
the  previous  pressure  field  is  assumed.  Then  velocities  are  calculated 
based  upon  this  assumed  pressure  distribution.  Knowing  the  veloci¬ 
ties,  the  mass  source  term,  Smp  (also  called  residual  mass),  is  calcu¬ 
lated  for  each  cell.  The  magnitude  of  the  mass  source  term  and  the 
sum  of  the  absolute  values  of  every  cell’s  residual  mass  serves  as  a 
check  on  the  conservation  of  mass  within  each  cell  and  through  the 
entire  flow  field.  If  Smp  is  close  to  zero,  the  guessed  pressure  field  is 
satisfactory;  if  not,  a  local  pressure  correction  is  calculated  and  the 
process  is  repeated  until  Smp  is  within  the  desired  range.  Once  a  sat- 
isfactoiy  pressure  field  is  found,  the  densities  for  the  next  time  step 
can  be  found  using  the  equation  of  state. 

Similar  to  the  global  pressure  correction,  the  actual  pressure 
equals  a  guessed  pressure  (superscript  *)  plus  the  local  pressure  cor¬ 
rection  (superscript  0. 
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p  =  p  +p 


(3.80) 


The  finite  difference  equation  for  the  pressure  correction 
takes  on  a  form  similar  to  the  other  finite  difference  conservation 
equations.  The  equation  for  p'  is: 

Ap  P  p  -  Ae  P  E  +  Aw  P  w  +  An  P  N  +  As  P  s  +  Ap  P  F  + 


+  AB  PB  -  Smp  AV 


(3.81) 


with 


Ae  = 


An  = 


As  = 


P.  *  (  h2  A02  h3  A03 
V  Ap,.,  +  Pe  At  ) 

pw  *  (h2  A02  h3  A93  ) 

l  AP  +  Pw  At  J 

pn  *  (h,  A01  h3  A03)' 
(  au2  ,  AV  ^ 

lAPj..+  Pn  At  J 

2 

p8  *  (h,  A61  h3  A63  ) 
AV  \ 

lAp  ps  At  ) 


(3.82) 


(3.83) 


(3.84) 


(3.85) 
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A„  = 


A0  = 


Pf  *  (h,  A61  h2  A02  / 

K+p<£)  ' 

p.^h.ie'h,  Ae2)^ 

~K^¥T 


(3.86) 


(3.87) 


Ap  Ae  +  Aw  +  An  +  As  +  Ap  +  AB 


(3.88) 


At  the  solid  boundaries  where  the  mass  flux  is  zero,  the  coefficient  A 
which  corresponds  to  the  boundary  is  equal  to  zero.  When  the  final 
corrected  pressure  field  has  been  calculated,  new  velocities  are  found 
from  the  following  equations. 

u1  =  uJ*  +  u1'  (3.89) 


u2  =  u2*  +  u2'  (3.90) 

u3  =  u3*  +  u3'  (3.91) 

with 

1#  (Pp  -  Pw)  (  h2  A02  h3  A93) 

U  ~  AU‘  AV 

p  +  Pw  At  (3.92) 
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(3.93) 


2  ' 

U  = 


(Pp-P.)  (hj  A01  h3  A03 ) 


Ap  +  p. 


A V 
At 


u3'  = 


(Pp-PJ  (hj  A01  h2  A02 ) 


A“  +  p 


AV 
b  At 


(3.94) 


Smp  is  then  computed;  if  it  is  within  the  desired  range,  the 
calculation  is  complete.  Otherwise  a  new  P*  is  calculated  and  the  pro¬ 
cedure  is  repeated. 


H.  VENTILATION  EQUATIONS 

When  forced  ventilation  is  introduced,  the  velocity  equation  for 
the  control  volume  containing  the  ventilation  becomes; 


APUP  =  Ae  ue+Awuw  +  Anun  +  A,  u„  + 

+  A  j.  uf  +  Ab  ub  +  Su 


(3.95) 


with 


A 


p 


=  102° 


(3.96) 


Su  =  specified  velocity  *  102° 


(3.97) 


this  causes  the  velocity  in  the  control  volume  to  be  equal  to  the 
desired  values  for  ventilation,  and  not  be  affected  by  the  upwind  or 
other  adjacent  velocities. 
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The  boundaries  of  the  control  volumes  with  specified  velocity 
require  special  consideration.  The  equation  for  the  downwind  control 
volume  becomes: 


ApUp  =  Aeue+Awuw+Anun  +  Asus  + 
+  Af  uf  +  A‘b  ub  +  Su* 


(3.98) 


with  the  starred  values  defined  as: 

a;  =  0.0 


(3.99) 


Su*  =  Su+Abub 


(3.100) 


This  causes  the  ventilation  to  be  the  only  effect  from  the  upwind  cell 
and  represents  a  fixed  velocity  internal  ventilation  system.  The  equa¬ 
tions  for  the  adjacent  control  volumes  whose  boundaries  are  parallel  to 
the  flow  must  also  change.  For  example,  the  equation  for  the  control 
volume  north  of  the  specified  ventilation  control  volume  becomes 

Apup  =  Aeue  +  Awuw  +  Anun+ A'8us  + 


+  Af  uf  +  Ab  ub  +  Su 


(3.101) 


with 


i 


s;, 


Su+  2  us  As 


(3.102) 


l 
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a; 


0.0 


(3.103) 


This  boundary  equation  makes  the  velocity  in  the  entire  volume 
constant,  rather  than  varying  between  the  staggered  cell  center  and 
the  boundary. 
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A.  INTRODUCTION 

The  computer  model  presented  here  was  designed  to  model  fires 
in  the  experimental  pressure  vessel  FIRE-1.  The  theory  of  the  model 
has  been  given  in  previous  chapters.  This  chapter  will  describe  the 
modeling  of  a  fire  with  internal  ventilation  in  FIRE-1 .  Although  such  a 
fire  test  has  yet  to  be  experimentally  run,  this  study  will  demonstrate 
the  feature  of  internal  ventilation  in  the  computer  model.  This  is  one 
step  to  make  the  model  more  accurately  represent  real  fires.  The 
parameters  used  in  the  study  will  be  presented  in  this  chapter  and  the 
numerical  solution  process  will  be  summarized.  The  effects  of  differ¬ 
ent  time  steps  in  the  computation  will  also  be  discussed. 

Two  trials  were  conducted,  one  with  internal  ventilation  and  one 
without  ventilation.  A  third  trial  was  conducted  using  the  ventilated 
case,  but  with  different  time  steps  for  the  iterations. 

Pressure,  temperature,  and  velocity  fields  are  generated  from  the 
computer  code.  The  temperature  and  velocity  fields  for  various  times 
will  be  discussed  for  both  the  ventilated  and  nonventilated  cases.  The 
global  pressure  and  thermocouple  temperatures  will  also  be  evaluated. 
The  thermocouple  temperatures  correspond  to  the  temperatures 
found  at  the  location  of  the  actual  thermocouples  in  FIRE-1,  in  the 
north  end  cap  (shown  in  Figure  4.1).  Additionally,  the  global  pressure 


Figure  4-1.  Thermocouple  Locations 
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and  one  thermocouple  temperature  will  be  compared  for  the  cases 
with  different  time  steps. 

B.  NUMERICAL  SOLUTION  PARAMETERS 

Various  parameters  are  input  into  the  numerical  model  in  order 
to  model  a  particular  fire.  These  parameters  include:  initial  condi¬ 
tions.  fuel  heat  release  rate,  location  of  the  fire,  geometry  of  the 
enclosure,  and  physical  characteristics  of  the  enclosure,  including 
heat  transfer  coefficient  and  fluid  properties  inside  the  enclosure. 
Other  items  could  be  added,  depending  upon  the  complexity  of  the 
model:  decks,  equipment,  fire  extinguishing  systems,  and  combustion 
parameters.  These  are  planned  to  be  added  to  this  model  in  the 
future.  The  location  of  sensors  and  the  physical  description  of  FIRE-1 
is  given  in  Chapter  1.  The  ventilation  fan  locations  are  shown  in  Fig¬ 
ures  4.2  and  4.3.  The  material  properties  used  in  this  thesis  are  listed 
in  Table  4. 1 . 

The  numerical  model  of  FIRE-1  uses  a  cylindrical /spherical  coor¬ 
dinate  system  shown  in  Figures  4.2  and  4.3.  The  grid  is  spherical  in 
the  end  caps,  with  0,  R,  and  <>  directions,  and  cylindrical  in  the  mid¬ 
section,  with  0,  R,  and  Z  directions.  There  are  14  cells  in  the  R 
direction:  one  cell  represents  the  tank  wall  and  another  is  in  the 
vicinity  of  R  =  0  and  is  used  to  avoid  singularity  at  the  origin.  Each 
end  cap  has  six  4>  cells;  again,  one  cell  is  used  to  avoid  singularity.  The 
mid-section  has  18  Z  (or  <>)  cells  and  there  are  20  cells  in  the  0  direc¬ 
tion  oriented  counterclockwise.  Although  a  finer  grid  could  be  used  to 


Figure  4-3.  Ventilation  Location  in  Computer  Model  (Front  View) 
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TABLE  4.1 


SPECIFIC  MODEL  PARAMETERS 
Wall  Characteristics 


Material 
Thickness 
Specific  Heat 
Thermal  Conductivity 
Density 

Fire  Characteristics 

Bum  rate 

Initial  Temperature 
Initial  Pressure 
Location 


ASTM  285  Grade  C  Steel 

3/8  inch 

0.1  Btu/  (lbm  F) 

25  Btu/  (hr  ft  F) 

487  lbm/  ft3 


A  Given  Function  of  Time 
35.6  C. 

1.0  Atm 

Center  of  FIRE-1 
23.1  ft  from  end 
3.21  ft  from  bottom 


Ventilation  Characteristics 


1. 

Velocity 

3.18  ft/  sec 

Direction 

South  to  North 

Location 

11.1  ft  from  end 

4.0  ft  from  bottom 

2. 

Velocity 

3.18  ft/  sec 

Direction 

North  to  South 

Location 

35.5  ft  from  end 

13.6  ft  from  bottom 

give  more  accurate  solutions,  the  limitations  of  the  computer 
resources  required  that  the  grid  not  be  enlarged.  Table  4.2  presents 
additional  information  concerning  the  model  parameters. 


TABLE  4.2 


GENERAL  MODEL  PARAMETERS 


Grid 

Number  of  Interior  Cells  6,720 

Number  of  Tank  Wall  Cells  560 

Number  of  Wall  Radiation  Zones  560 

Number  of  Fire  Radiation  Zones  1 9 

Cells  in  the  0  Direction  20 

Cells  in  the  R  Direction  1 4 


Cells  in  the  <j)  Direction  (six  in  each  end  cap)  1 2 

Cells  in  the  Z  direction  (in  the  mid-section)  18 

Time  Step 

Varied  0.0192-0.0288  Sec 

CPU  Time  (1  CPU  hour)  0. 6-0.8  sec  fire  time 

External  Heat  Transfer  Coefficient  15.0  Btu/  (hr  ft2  F) 

C.  NUMERICAL  SOLUTION  PROCESS 

Two  separate  programs  comprise  this  model;  the  first  is  a  surface 
radiation  preprocesser  program  which  calculates  the  view  factors. 
The  main  program  is  similar  to  that  presented  by  Nies  [Ref.  29:pp.  54- 
57]  and  Raycraft  [Ref.  30:pp.  96-97],  The  first  part  of  the  main  pro¬ 
gram  establishes  the  initial  parameters  and  inputs  the  view  factors. 
Then  the  effective  viscosity  is  computed  in  Subroutine  CALVIS.  Every 
two  time  steps,  the  wall  radiation  flux  is  recalculated.  Temperature, 
pressure  and  velocity  are  computed  in  subroutines  using  a  semi- 
implicit  technique  which  solves  the  finite  difference  equations.  Sub¬ 
routine  CALT  is  then  called  to  determine  the  temperatures,  followed 


by  the  computation  of  the  pressure  and  global  pressure  correction. 
Then  the  velocities  and  local  pressure  corrections  are  computed;  the 
local  pressure  correction  updates  the  velocities.  With  the  corrected 
velocities,  continuity  is  applied  to  each  cell  and  the  residual  mass  is 
found.  The  sum  of  the  absolute  value  of  every  cell’s  residual  mass  is 
called  the  residual  mass  source,  RESORM.  The  magnitude  of  RESORM 
indicates  whether  the  pressure  corrections  are  sufficient.  If  RESORM 
is  too  large,  the  program  recalculates  the  velocities  and  pressures 
until  RESORM  comes  within  the  desired  range.  If  RESORM  is  greater 
than  10.0,  the  program  stops  because  this  only  happens  when  there  is 
a  stability  problem.  If  this  occurs,  the  time  step  must  be  reduced  and 
the  program  restarted  using  data  from  a  previous  step.  To  economize 
computer  time,  the  temperature,  global  pressure,  and  density  are  only 
calculated  every  third  iteration.  The  iterations  continue  until:  (1) 
RESORM  is  below  the  predetermined  value,  (2)  the  maximum  number 
of  iterations  has  been  reached,  or  (3)  the  CPU  time  presently  available 
is  insufficient  to  complete  another  iteration. 

D.  VENTILATION  RESULTS 

The  numerical  model  was  used  to  evaluate  two  fire  scenarios:  one 
included  internal  ventilation  and  the  other  did  not.  The  specific 
parameters  of  the  model  were  discussed  previously.  The  validity  of 
the  ventilation  model  will  be  evaluated  and  the  numerical  results  of 
the  internal  ventilation  case  will  be  compared  to  the  nonventilated 
case. 
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A  direct  comparison  can  be  made  by  looking  at  the  spatial  and 
temporal  variations  of  the  velocity  and  temperature  fields.  Although 
these  fields  are  three-dimensional,  they  are  presented  in  a  two- 
dimensional  form  at  three  representative  sections  in  the  tank,  shown 
in  Figure  4.4.  Section  A  is  the  mid-section  front  view,  which  cuts  the 
vessel  vertically  along  the  axis  (Y-Z  plane).  Section  B  is  the  mid-sec¬ 
tion  end  view  from  the  south  end,  cutting  the  vessel  through  the  mid¬ 
dle  of  the  vessel,  perpendicular  to  the  axis  (X-Y  plane).  Section  C  is 
the  section  view  at  the  base  of  the  end  cap  from  the  south  end,  which 
is  also  cut  perpendicular  to  the  axis  but  at  the  intersection  of  the 
cylindrical  and  spherical  portions  of  the  tank  (X-Y  plane).  The  venti¬ 
lated  and  nonventilated  temperature  and  pressure  fields  for  the  times 
30,  60,  90,  120  and  150  seconds  are  shown  in  Figures  4.5  through 
4.35. 

Many  observations  can  be  made  in  analyzing  the  field  plots,  but 
only  the  major  phenomena  will  be  discussed  here.  Raycraft,  et  al.  [Ref. 
381  discuss  the  results  of  the  nonventilated  computer  model.  In  this 
thesis,  discussion  will  be  limited  to  comparisons  of  the  two  cases  and 
some  general  comments.  Particularly  interesting  phenomena  include 
the  flame  plume,  global  velocity  field,  ventilation  effects,  temperature 
stratification,  and  the  velocity  field  in  a  small  region  near  the  base  of 
the  flame  plume  during  the  beginning  of  the  fire. 

As  can  be  seen  in  Figures  4.5  through  4.8,  the  flame  plume  is  well 
formed  early  in  the  fire  in  both  the  nonventilated  and  ventilated  cases 


75 


Figure  4-4.  Location  of  Cross-Sections  Used  for  Isotherm  and 

Velocity  Field  Plots 
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Figure  4-5.  Mid-Section  Front  Views  of  Isotherms  at  30  Seconds 
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UNVENT  I LAT  ED  (NO  SCALE) 


UNVENT  HATED 


Section  End  Views  of  Isotherms  at  30  Seconds 


Figure  4-9.  Section  View  at  Base  of  End  Cap  of 

Isotherms  at  30  Seconds 

■ 
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VENTILATED  UNVENTILATED 

20  seconds  shown)  (NO  SCALE) 


Figure  4-11.  Mid-Section  Front  View  of 


Velocity  Field  at  40  Seconds 
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UNVENT  I  LAI  CD 
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UNVENT  H  ATED 
(NO  SCALE) 


Velocity  Field  at  60  Seconds 
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UNVLNT  HATED 
(NO  SCALE) 


Figure  4-16.  Section  View  at  Base  of  End  Cap  of 
Isotherms  at  60  Seconds 


Figure  4-17.  Section  View  at  Base  of  End  Cap  of 
Velocity  Field  at  60  Seconds 


89 


92 


VENTILATED  UNVENT ILATED 

(NO  SCALE) 


Figure  4-23.  Section  View  at  Base  of  End  Cap  of 
Velocity  Field  at  90  Seconds 
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Figure  4-26.  Mid-Section  End  Views  of  Isotherms  at  120  Seconds 
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Figure  4-27.  Mid-Section  End  Views  of 
Velocity  Field  at  120  Seconds 
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Figure  4-28.  Section  View  at  Base  of  End  Cap  of 
Isotherms  at  120  Seconds 


Figure  4-29.  Section  View  at  Base  of  End  Cap  of 
Velocity  Field  at  120  Seconds 


Velocity  Field  at  150  Seconds 
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Figure  4-32.  Mid-Section  End  Views  of  Isotherms  at  150  Seconds 
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VENTILATED  UNVENTILATED 

(NO  SCALE) 


Figure  4-33.  Mid-Section  End  Views  of 
Velocity  Field  at  150  Seconds 


Figure  4-34.  Section  View  at  Base  of  End  Cap  of 
Isotherms  at  150  Seconds 
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Figure  4-35.  Section  View  at  Base  of  End  Cap  of 
Velocity  Field  at  150  Seconds 


and  it  dominates  the  local  velocity  field.  As  can  be  seen  in  Figures 
4.12  through  4.33,  the  plume  continues  to  dominate  the  field 
throughout  the  fire.  The  plume  begins  at  the  heat  source  and  flows 
straight  up  until  it  reaches  the  ceiling,  then  it  divides  and  flows 
towards  either  end  of  the  vessel.  In  the  local  area  of  the  fire,  there  is 
some  entrainment  of  the  field  due  to  the  plume  flow.  Due  to  the 
strength  of  the  plume  velocity,  and  the  absence  of  any  strong  global 
circulation,  the  flame  plume  divides  the  velocity  field  in  half,  isolating 
the  north  and  south  regions. 

The  flow  in  the  hot  ceiling  layer  does  not  appear  to  have  strong 
enough  momentum  to  carry  it  into  the  lower  half  of  the  tank,  even  in 
the  south  end,  where  the  fan  augments  the  flow.  Instead,  the  flow 
recirculates  into  the  tank  interior,  resulting  in  a  downward-biased 
flow.  It  then  returns  to  the  fire  region  in  a  somewhat  spatially  oscilla¬ 
tory  path.  As  can  be  seen  in  Figures  4.8,  4.10,  and  the  other  end  views 
of  the  velocity  field,  there  is  a  spiral  flow  circulation  pattern  in  the 
ventilated  case.  This  creates  a  more  stagnant  region  to  the  right  of 
the  vertical  center  line.  Figures  4.7,  4.9,  and  the  other  end  views  of 
isotherms  show  higher  temperatures  in  this  stagnant  region  because 
the  heated  fluid  is  not  being  convectively  transferred.  It  also  makes 
the  conductive  heat  transfer  through  the  tank  wall  in  the  region  more 
important,  as  the  temperature  is  higher.  In  the  nonventilated  case, 
the  flow  fields  and  isotherms  appears  to  be  symmetric  about  the  verti¬ 
cal  plane. 


As  mentioned  previously,  the  velocity  of  the  fans  is  a  constant  3.18 
feet  per  second.  This  velocity  is  on  the  same  order  of  magnitude  as 
the  flame  plume,  but  since  each  fan  is  directed  only  toward  the  end 
caps,  their  impact  on  the  global  velocity  field  is  not  significant.  The 
fan  entrainment  creates  only  a  small  local  disturbance  to  the  global 
flow  pattern.  The  north  fan  outlet,  in  the  lower  region  of  the  vessel, 
has  little  effect  upon  the  global  velocity  since  the  global  velocity  in  the 
region  is  very  small,  as  seen  in  the  nonventilated  case.  The  fans  effect 
the  heat  distribution  locally,  as  discussed  in  the  next  paragraph. 

Figure  4.5  shows  a  hot  layer  along  the  ceiling  of  the  tank,  with  the 
temperature  highly  stratified  in  the  upper  region.  The  lower  two- 
thirds  of  the  tank  are  still  near  the  initial  temperature.  This  tempera¬ 
ture  distribution  is  exactly  what  the  velocity  field  suggests,  flow  only  in 
the  upper  third  of  the  tank,  and  little  flow  in  the  bottom  two-thirds. 
In  Figures  4.12,  4.18,  4.24,  and  4.30,  the  temperature  stratification 
continues,  but  the  heated  fluid  is  slowly  progressing  toward  the  bot¬ 
tom  of  the  tank.  Even  at  150  seconds,  Figure  4.30  shows  that  the  first 
isotherm,  representing  15  degrees  Centigrade  above  ambient,  is  only 
at  the  middle  of  the  tank.  The  bottom  half  of  the  tank  experiences 
very  little  temperature  increase.  In  the  ventilated  case,  the  isotherms 
in  the  north  end  cap  are  higher  than  in  the  south.  This  can  be  attrib¬ 
uted  to  the  fans  at  either  end  which  push  up  the  heated  fluid  in  the 
north  end  and  push  down  the  heated  fluid  in  the  south  end.  The 
effect  is  limited  to  a  small  region  in  the  end  cap  because  the  fan 
velocity  is  relatively  low  and  the  flow  is  parallel  to  the  isotherms. 
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Since  flow  is  along  the  stratification,  very  little  mixing  of  different 
temperature  gases  occurs  except  in  the  end  caps,  where  flow  is  forced 
into  a  single  region.  Had  the  fans  been  oriented  in  a  direction  not 
parallel  to  the  isotherms,  one  would  expect  the  temperatures  in  the 
lower  portion  of  the  tank  to  be  more  affected. 

One  anomaly  which  appears  in  the  ventilated  case  is  the  second 
circulation  at  the  base  of  the  flame  plume  on  the  north  side  seen  in 
Figure  4.11.  The  flow  in  this  region  is  flowing  away  from  the  flame 
plume  until  it  turns  upward  as  it  hits  the  flow  returning  to  the  plume 
from  the  end  caps.  It  is  believed  that  this  is  a  transient  phenomena 
due  to  the  interaction  between  the  fan  and  flame  plume  entrainments. 
As  can  be  seen  in  Figures  4.6  and  4.13,  the  phenomenon  has  disap¬ 
peared.  Additional  data  for  a  time  of  45  seconds,  not  included  herein, 
shows  no  indication  of  the  second  circulation  pattern.  The  effects  of 
this  second  circulation  pattern  can  be  easily  seen  in  the  temperature 
field  in  Figure  4. 1 1 . 

Figures  4.36  through  4.39  present  the  data  from  the  ventilated 
and  nonventilated  cases.  Figure  4.36  shows  that  the  global  pressure  in 
both  cases  is  not  very  different.  The  differences  can  be  attributed  to 
two  causes.  First,  the  entire  field  is  not  at  a  thermodynamic  equilib¬ 
rium  state,  and  the  relationship  between  the  global  pressure  and  a 
field  not  in  thermodynamic  equilibrium  is  only  an  estimation.  Any 
change  to  the  field  which  would  closer  approach  equilibrium,  such  as 
the  mixing  due  to  the  fans,  would  affect  the  global  pressure.  Second, 
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Figure  4-36.  Pressure  Curves  for  the 
Ventilated  and  Nonventilated  Cases 
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Figure  4-37.  Thermocouple  #1  Curves  for  the 
Ventilated  and  Nonventilated  Cases 
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Figure  4-38.  Thermocouple  #2  Curves  for  the 
Ventilated  and  Nonventilated  Cases 


Figure  4-39.  Thermocouple  #4  Curves  for  the 


Ventilated  and  Nonventilated  Cases 
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the  fire  is  still  in  its  first  stages,  and  the  entire  field  is  rapidly  chang¬ 
ing.  This  dynamic  situation,  along  with  the  approximations  inherent 
in  modeling,  can  also  account  for  differences  in  the  ventilated  and 
nonventilated  fields. 

Figures  4.37  through  4.39  show  the  thermocouple  temperatures 
versus  time;  the  results  are  similar  to  the  pressure,  with  the  ventilated 
case  increasing  more  slowly  but  then  catching  up  to  the  nonventilated 
case,  exceeding  it  at  around  80  to  110  seconds.  Since  the  thermo¬ 
couples  are  in  the  north  end  cap.  they  are  in  the  area  in  which  the 
isotherms  are  pushed  upward  by  the  fan.  This  could  explain  why  the 
temperatures  are  lower  in  the  ventilated  case.  The  temperatures 
exhibit  some  local  fluctuations  which  could  be  the  result  of  thermal 
instability  associated  with  thermal  plumes  [Ref.  37] .  In  Figure  4.39  it 
appears  that  there  are  large  oscillations,  but  the  scale  on  the  graph  is 
smaller  so  that  the  temperature  oscillation  of  all  three  thermocouples 
is  in  the  same  range.  These  oscillations  appear  in  both  the  ventilated 
and  nonventilated  cases. 

In  most  numerical  models,  the  time  step  is  an  important  factor.  A 
small  time  step  uses  too  much  computer  time,  while  too  large  a  time 
step  results  in  instability  of  the  model.  In  this  study,  two  trials  were 
conducted  with  different  time  steps.  In  the  first  trial,  a  time  step  of 
0.0288  seconds  was  used  up  to  40  seconds  of  fire  time,  and  then  the 
step  was  reduced  to  0.0192.  In  the  second  trial,  the  beginning  time 
step  was  0.1152  seconds  until  6  seconds  of  fire  time,  when  the  model 
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Figure  4-41.  Thermocouple  #1  Curve  for  Trials  1  and  2 
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became  unstable.  At  that  time,  the  time  step  was  reduced  to  0.0288 
and  further  reduced  to  0.0192  near  80  seconds,  when  it  again  became 
unstable.  Figures  4.40  and  4.41  show  the  global  pressure  and  temper¬ 
ature  of  thermocouple  number  1  versus  time  for  both  trials.  Note  that 
the  curves  are  coincident  for  the  first  20  seconds,  then  diverge  until 
approximately  90  seconds,  when  they  begin  to  converge.  At  the  end  of 
the  runs,  both  the  pressure  and  temperature  appear  to  become  coin¬ 
cident  once  again.  Since  the  only  difference  between  these  two  runs 
was  the  time  step  difference,  it  is  evident  that  time  step  does  affect 
the  transient  results  in  this  computer  model.  Also  interesting  is  that 
it  appears  that  solutions  using  different  time  steps  would  become  the 
same  after  a  long  period  of  time. 
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V. 


MfiKM  JI*kj  Wv'RW.V'I  4  tfaMiOrtM  I  aRjiXliftKE 


A.  CONCLUSIONS 

Several  conclusions  may  be  drawn  from  this  simulation  model  of 
the  FIRE-1  test  facility  with  ventilation: 

1.  The  ventilation  model  has  been  successfully  incorporated  into  the 
numerical  model  of  FIRE-1.  The  local  velocity  fields  in  the 
region  of  the  fans  exhibit  a  realistic  behavior.  The  global  effect  of 
the  fans  is  small  due  to  the  relatively  low  velocity  and  because  the 
flow  is  parallel  to  the  isotherms. 

2.  The  global  flow  field  exhibited  appears  realistic.  The  fire  plume 
increases  the  gas  velocity  upward,  resulting  in  a  ceiling  jet  which 
is  the  dominant  flow  in  the  field.  The  flow  recirculates  within 
the  field  with  minor  variations  caused  by  the  ventilation. 

3.  The  isotherms  depict  the  concentration  of  hot  gases  in  the  top  of 
the  field.  These  hot  gases  stratify  and  slowly  diffuse  downward  as 
time  progresses.  The  isotherms  are  affected  by  the  ventilation  in 
the  end  cap  region,  where  they  are  pushed  upward  or  downward. 

4.  A  small  change  in  the  time  step  makes  a  discemable  difference 
in  the  transient  solution.  With  different  time  steps,  the  transient 
solutions  are  different.  When  the  time  steps  are  the  same,  the 
previously  diverging  transient  solutions  appear  to  converge  and 
become  coincident. 


B.  RECOMMENDATIONS 

The  following  recommendations  are  made  for  future  work  on  the 
numerical  model: 

1.  Additional  FIRE-1  experiments  are  needed  to  better  validate  the 
numerical  model.  Accurate  heat-release  rate  data  must  be 
obtained  and  included  in  the  model,  instead  of  using  a  synthe¬ 
sized  rate.  Additionally,  sensors  should  be  placed  at  different 
locations  in  the  vessel  to  better  validate  the  numerical  results 
throughout  the  field. 
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2.  Develop  and  incorporate  additional  models  to  simulate  physical 
phenomena  such  as  gaseous  radiation  and  combustion. 

3.  Continue  to  expand  and  validate  the  model  to  include  decks, 
equipment  in  the  space,  and  fire-extinguishing  systems. 

4.  Since  the  model  uses  an  extensive  amount  of  computer  time,  it  is 
imperative  that  the  numerical  model  be  transferred  to  a  super¬ 
computer  or  a  dedicated  mini-computer. 

5.  The  ultimate  goal  of  this  project  is  to  develop  a  computer  model 
for  predicting  fire  and  smoke  phenomena  in  shipboard  situations. 
Completion  of  this  goal  will  offer  ship  designers  and  engineers 
with  a  valuable  tool  to  design  and  build  safer  ships  and 
submarines. 
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APPENDIX 


COMPUTER  PROGRAM 


e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THREE-DIMENSIONAL  NUMERICAL  SIMULATION 
OF  A  FIRE  SPREAD  INSIDE  A  NAVY  STORAGE  TANK 


H.Q. 


DEVELOPED  BY 
YANG  AND  K.T. 


YANG 


4Ht 

•• 

•« 

*• 

•* 


DEPARTMENT  OF  AEROSPACE  4  MECHANICAL  ENGINEERING 
UNIVERSITY  OF  NOTRE  DAME 
NOTRE  DAME,  INDIANA,  46556 

DEC.  I486 


00000100 

00000200 

00000300 

00000400 

00000500 

00000600 

00000700 

00000800 

00000900 

00001000 

00001100 

00001200 

00001300 

00001400 

00001500 

00001600 

00001700 

00001800 

00001900 

00002000 

00002100 

00002200 


C0MM0N/R4/XCI  93),YCI  93),ZCI  93  ),XS(93  l.YSl  «3),2SI  93), 

A  DXXCI 93 l.DYYCl 93  I.DZZCI 93).DXXS( 93  l.DYYSI 93),DZ2St93) 

COMMON/BL1/OX,CY,OZ,VOL,OTIME,VOLDT,THOT,TCOOL,PI,«,QR 
COMMON/B L 7/NI  ,NIP1  ,NIM1  ,NJ  ,NJP1  ,NJM1  ,NX  ,NKP1  ,NKM1 
4  ,NIP2  ,N.'P2  ,NKP2  ,NA  ,NAP1  ,NAM1  ,NB  ,NBP1  ,NBM1  ,KRUN,NCHIP ,NJRA,NHRP 
C0MM0N/BL12/  NHRITE , NT APE ,NTMAX0 .NTREAL .TIME .SORSUM.ITEft 
CCMMON/B L 14/HCOE F  ,TINF  ,CNT , ABTUR3  ,BTURB , VISL , VISMAX  .CCORP.T  ,PM1  .PM200002300 
C0MM0N/BL16/  C0N3T1  ,CONST2  ,C0N3T3  ,CONST4,CONST(,  .NT  ,U0  ,H  .UGRT  .BUOY  ,00002400 
4  CPO ,PRT .CONOO .VISO ,RHOO .HR ,TP ,TA .DTEMP .TWRITE .TTAPt »TMAX ,GC .RAIR00002500 
COMMON/BL20/SIG11I  22 . lo ,32  )  .SIG12I 22 , lo ,32  I  .SIG22I 22.16,32)  00302600 

*  .SIG13I 22.16,32  I, SIG23( 22,16,32  I, SI533I 22.16,32  )  00002700 

COMMON/BL22/ICHFBI 10  I.NCHPI! 10  I.JCHPBI 10  )  .NCHPJl 10 1  .KCHPBI 10 ) ,  00002800 

4  NCHFKI 10 ) ,TCHP( 10  I  ,CPSl 10  )  .CONSl 10  )  .KFANI 10 )  00002°00 

COMMON/BL31/  TOOI 22 ,16 ,32  )  ,ROO< 22 ,lo ,32  )  ,P0D1 22 ,16 ,32  )  00003000 

4  ,C0D<  22,16,32  l.UOOl 22 ,lo ,32  )  ,VOOI 22 ,16 ,32  ), NODI  22 ,16 ,32 )  00003100 

COMMON/B'_32/  Tt  22,16,32  ),R<  22,16,32  >,P(22, 16, 32  i  00003200 

4  ,Cf 22,lo,32  l, Ul 22,16,32  l, VI22, 16,32  l,NI 22,16,32  )  00003300 

COMMON/BL33/  TPDl 22 , 16 ,32  )  ,R?0< 22 , 16 ,32  I  ,PPDI 22 ,16 ,32  I  00003400 

4  .CPDl  22,16,32  I, UPOI 22 , 16 ,32  t ,VPO( 22 , 16 ,32  )  ,WPDI 22 ,16 ,32 )  00003500 

C0MM0N/BL34/  HEIGHT! 22 ,16  ,32  )  .REQt 22  ,le  ,32 > ,  00003600 

4  SMP( 22,lo,32 1  ,SMPP( 22  ,lo  ,32  ),PP( 22,16,32 ),  00003700 

4  DU< 22, '6,32  i.OVI 22,16,32  I, OHt  22,16,32  )  00003800 

C0MM0N/BL3o/AP( 22,16,32  ) , AE( 22 , 16 , 32  I  ,AWI 22 , 16 ,3Z  ) , AN1 22,16,32 ),  00003900 

4  AS(  22,lo,32 I.AFI  22,16,32  I  ,ABl 22 ,16,32 ),  00004000 

4  SPt 22.16,32 ),SU( 22,16,32  ),RIl 22,16,32  )  00004100 

COMMON/BL37/  VIS(  22 , 16 ,32 ) .CONDI  22 , 16 , 32  )  ,NOD< 22 ,16 ,32 ) .RWALLI 579 100004200 


4  ,CPMl 22,16,32  )  ,HSZ<  3,2)  ,NHSZl 22,16,32) .RESORMI  93 ) 

COMMON/BL38/NTHCO.CXI  12),CY(  IZi.CZI  12  I, NTH!  12,3  1.TC0UP112) 
COM;  I0N/BL3  9/ALEW ,  PCURVE  .CONSRA  ,  PCURM1 ,  PSOUTH  .QCORR ,  PE  RROR 
DIMENSION  VFM>!C1 579 ,579  )  .T4WALLI  579 ) 

DATA  N,ITLEFT,SORMAX,XTIME,1TMAX/20, 400000, 0.40, 0.0, 4/ 


00004300 

00004400 

00004500 

00004600 

00004700 

00004800 

00004900 

00005000 

00005100 


121 


r>  r:  r> 


l 


•««  uo 

***  RHOO 
«««  H 
*«*  TA 
***  TINXT 
*»*  GC 
***  RAITR 
*»*  CONST! 
***  CONST3 
***  C0NST4 
***  CONST6 
**»  CONSRA 
*»*  NTRWR 
***  NTRMA 
***  HCOMV 


REFERENCE  VELOCITY  1  FT/SEC  1.1  FT/SEC 
REFERENCE  AIR  DENSITY  ( LBM/FT**3  ) 

REFERENCE  LENGTH  (FT) 

REFERENCE  TEMPERATURE  IR) 

INITIAL  TEMPERATURE  (0) 

GRAVITATIONAL  CONSTANT 
GAS  CONSTANT >  53.34 
RA*UO**2/GC 
INVERSE  OF  TA 
REFERENCE  LENGTH  (CM) 

REFERENCE  VELOCITY  (CM/S) 

TA**3/( RA*CP*UO«H*H ) 

NTREAL/NWRITE*NWRITE 

NTREAL/NHALT«NWALT 

HEAT  TRANSFER  COEFFICIENT  ON  THE  AMBIENT  ( BTU/H . FT**2K ) 


***  RAD.H 
CYL 

***  NI 
NJ 
NK 
NA 
NB 


RADIUS  OF  THE  CYLINDRICAL  ANO  SPHERICAL  SECTIONS 
LENGTH  OF  THE  CYLINDRICAL  SECTION  OF  THE  TAM 
TOTAL  NUM3ER  CELLS  IN  THETA-DIRECTION 
R-DIRECTION 
2  AND  PHI -DIRECTIONS 
FIRST  NUMBER  Z-OIRECTION,  ALONG  THE  CYLINDER  AXIS00007500 
LAST  NUMBER  2-DIRECTION,  ALONG  THE  CYLINDER  AXIS00007600 


00005200 

00005300 

00005400 

00005S00 

00005600 

00005700 

00005800 

00005400 

00006000 

00006100 

00006200 

00006300 

00006400 

00006500 

00006600 

00006700 

00006800 

00006900 

00007000 

00007100 

00007200 

00007300 

00007*400 


***  HSZ( 1,1 )  ,HSZ( 1 ,2  ) 
H3Z( 2,1 ) ,HSZ( 2,2 ) 


HS2( 3,1 )  ,HSZ( 3,2) 


FIRST  AND  LAST  COORDIANTE  OF  HEAT  SOURCE 

IN  X-DIRECTION  (IN  DIMENSIONLESS  FORM) 
FIRST  AND  LAST  COORDIANTE  OF  HEAT  SOURCE 

IN  Y-DIRECTION  (IN  DIMENSIONLESS  FORM) 
FIRST  AND  LAST  COORDIANTE  OF  HEAT  SOURCE 

IN  Z-OIRECTICN  (IN  DIMENSIONLESS  FORM) 


**#  ICHPBI  ) 
JCHPBI  ) 
KCHPBI  I 
***  NCHPII  ) 
NCHPJI  ) 
NCHPK)  ) 


STARTING  NODAL  NUMBER  FOR  SOLID  IN  THETA-DIRECTION 

R-DIRECTION 
2  OR  PHI -DIRECTION 

NUMBER  OF  NODALS  FOR  SOLID  IN  THETA-DIRECTION 

R-DIRECTION 
Z, PHI-DIRECTION 


C  ♦■‘t***##**-*#******************************************-**-*  ******* 

INPUT  DATA  t 

iSZSJ  J32J22gSa£SgS£*SSS*i£SSg£S£&Sa«J»S&«£S*ASS£S£J£SSSSSSi£iS£ 
CALL  INPUT 

c  smgg&smsgsmmmmggggs&m&mmmmggsgmggmm 

C  GENERATE  GRID  SYSTEM  S 

c  ttiiutiiimitiitiiiiiitittttattt mmmmtmsmmmss 

CALL  GRID 

c  tiitmmtmtmtmmttmHtttmttiimimfmfmtHttm 

C  ***  READ  VIEW  FACTOR  INVERSE  MATRIX  « 

ct(mmKt<tmt«i««ttiit(itttmK»»(iitnii«tmm(rtmttttiti 

999  READ  (11,END=998)  VFMXC 
GOTO  999 


00007700 

00007800 

00007900 

00006000 

00008100 

00003200 

00008300 

00008400 

CQ008500 

00008600 

00002700 

00008800 

000C3°00 

0000°000 

C000°100 

C000°200 

0000°300 

OOOOO^OO 

0000°500 

00009600 

0000°700 

0000°800 

0000°900 

00010000 

00010100 

00010200 

00010300 

00010400 

00010500 

00010600 


I 


I 
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on  n  nooooo  on 


998  CC.’  INUE 
REWIND  II 
CLOSE  (11) 

c  mimsjjumjmtimmmssiimmtmmmtmtmmm 

C  INITIALIZE  THE  WHOLE  FIELD  i 

c  ttttttttttsssussitssitsssissiiiitttttiitttitststisszsttisiuit 

CALL  INIT 

c  itumttmmmtmnimimiimmtmmttitmmmm 

C  START  CALCULATION  t 

C  ItttUltttlttllttttUttttttttttlUttttttttltltttttttttttUZttti 


NT -0 
NTIM=0 

300  CONTINUE 


NT-NT+1 

**»  NTMAXO  HAS  THE  MEANING  AS  “NTREAL"  WHEN  IT  IS  READ  FROM 
DISK  OR  TAPE. 

IFIXTIME  .GT.  TMAXI  GO  TO  303 
NTREAL ZNT  *NTMAX0 
TIME=TIME+DTIME 
XTIME -TIME*H/U0 


iniitiiiiiitiiiiiittz&iziztiiittiitttitttttttititzttizitztttitz 

CALCULATE  THE  TRANSIENT  HEAT  INPUT  t 

NOTE  IF  1  IN  PARENTHESIS,  THE  BURN  RATE  IS  CALCULATED  t 
BY  THE  PRESSURE  CURVE.  IF  EO'JAL  TO  TWO,  THE  BURN  RATE  A 
CURVE  IS  EITHER  GIVEN  OR  ESTIMATED  t 

CALL  CALQlZ) 

***  START  CALCULATION 

ITER*0 

JTERN=0 

JJTERM-0 

DEFINE  THE  UPDATED  TPD(I,J,K>,  CPD<  I ,  J  ,K  I  ,RP0(  I ,  J  ,K  I 

UrOI  I ,  J,K  )  AND  VPD!I,J,K)  FOP.  THE  USE  OF  CALVIS  AND  SU(I,J,K) 

OO  98  K*1,NKP1 
DO  48  J=1,NJP1 
DO  48  1*1 ,NIP1 
TP OlI.J.K  )*T(I,J,K) 

CPDl  I ,  J,K  )*C(  I  ,J,K  ) 

RPDI I ,  J  ,K  l*R(  I .  J  >K  ) 

UPDlI.J.K  l=U(I,J,K) 

VPDII  ,J,K  I  =V(  I  ,J,K  ) 

HPO(I,J,K)*W(I,J,K) 


00010700 

00010800 

00010900 

00011000 

00011100 

00011200 

00011300 

00011400 

00011500 

00011600 

00011700 

00011600 

00011900 

00012000 

00012100 

00012200 

00012300 

00012400 

00012500 

00012600 

00012700 

00012800 

00012900 

00013000 

00013100 

00013200 

00013300 

00013400 

00013500 

00013600 

00013700 

00013800 

GC013900 

00014000 

00014100 

00014200 

00014300 

00014400 

00014500 

0001*600 

00014700 

00014800 

00014°00 

0001E000 

00015100 

00015200 

00015300 

00015400 

00015500 

00015t>00 

00015700 

00C15800 

00015900 

00016000 

00016100 
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48  CONTINUE 
29  CONTINUE 

JTERM-JTERM+1 
501  CONTINUE 


C  CALCULATE  THE  RADIATION  HEAT  FLUX  AT  EVERY  NRAD  TIME  STEPS  i 

ctutttttt&t&ttttiitiitt&itttittittsittiiiitt&ttiitttitttttitiitt 

NRAD  =  2 

IF  ( MOD ( NT >NRAD  ) . NE . 0  )  GOTO  4000 
CALL  RADHT( T4WALL ,VFMXC  ) 

4000  CONTINUE 

C  CALCULATE  THE  TEMPERATURE  * 

c»mmtttmmnmK»tnmtmtmtmttm<Km«nmt« 

CALL  CALT 

csss&smsmmmmm&immasmmimsmmmmsamst 

C  CALCULATE  THE  SMOKE  CCTiCENTRATION  A 

C  CALL  CALC 


DO  2000  J=1,NJP1 
DO  2000  I=1,NIP1 


DO  2000  K=1,NKP1 

IF(  Tl  I  >  J  »K  ) .  LT . TCOOL )  T(  I , J ,K )=TCOOL 

2000  continue 


c  GL03LE  PRESSURE  CORRECTION  FOR  ENCLOSED  TANK  AIR  V. 


CXXZXXXXXXXXXXXZZXXXXXXXXXXXXXXXXXXXXXXXXXXXXXZXXXXXXX/rXXXXXXXXXX 


CALL  GL03E 


C3333332'333333333333333333333333333333033333333333333333333333333 
C  CALCULATE  THE  TURBULENT  VISCOSITY  AND  CONDUCTIVITY  3 

C 3333333303303333333333333333333303333333333333333333333333333333 
CALL  CALVIS 


C  CALCULATE  THE  DENSITY  * 

IHHHHI IHHHUHHUHK 

DO  100  J=1,NJP1 
DC  100  I=1,NIP1 
DO  100  K=i tNKPl 
I F  I  N00(  I»J, KI.E0.lt  GOTO  100 
AAAA=e'JOY*UGRT«HEIGHTlI,J,K  I 

R(  I ,  J  ,K  >  =  (  UGRT*P<  I  ,J,K  )  +  ( 1. /EXPI  AAAA  ) )  )/T(  I  »J>K  ) 

100  CONTINUE 

C  CORRECT  CONDUCTIVITY  OF  THE  SOLID  $ 

C$$$ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
IF  (NCHIP.EQ.O)  GOTO  410 


00016200 

00016500 

00016400 

CC016500 

00016600 

00016700 

00016800 

00016900 

00017000 

00017100 

00017200 

00017500 

00017400 

00017S00 

00017600 

00017700 

00017800 

00017900 

00018000 

00018100 

00018200 

00018500 

00018400 

00018500 

00016600 

00018700 

00018800 

00018900 

00019000 

0001“100 

00019200 

00019500 

00019400 

00019500 

00019b00 

00019700 

00019800 

00010900 

00020000 

0002C100 

00020200 

DC020500 

00020400 

000205C0 

00020600 

00020700 

00020800 

00020900 

00021000 

00021100 

00021200 

00021500 

00021400 

00021500 

00021600 
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CALL  SOLCON 
410  CONTINUE 


CXXXXXXXXXXXXXXXZXXXZXZXXZXZXZZXZXZXXZXXXZXZZZXZXZZZZZXZXZZXXZXZZ 

C  START  PRESSURE  CORRECTION  ITERATIVE  LOOP,  IT  IS  THE  MAJOR  Z 
C  PART  Or  THE  ERROR  CONTROL  ROUTINE  Z 

czzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz 


ITER=IT£R*1 


C  CALCULATE  THE  VELOCITY  U.V.ANO  W  9 


CALL  CALU 
CC  CALL  STRESS 

Cwwv 

CALL  CALV 
CC  CALL  STRESS 

C  ***  ************** 
CALL  CALM 
CC  CALL  STRESS 

C  ***  ************** 


C  CALCULATE  THE  PRESSURE  AND  STRESS  S 

$$$$$$$$ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 


CALL  CALP 
CALL  STRESS 


CZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ 

C  IF  SOURCE  TERM  IS  LARGER  THAN  10.0,  STOP  PROGRAM  Z 

czzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz 

IF  iRESORN.i  ITER  I.GT. 10.0)  GOTO  2020 


30 


IFIRESORMf ITER)  .LE.  SORMAX )  GO  TO  49 
IFUTER  .EQ.  1J  GO  TO  302 
ITERM1=ITER-1 

IFIRESORMf ITER  I  .LE.  RESORMf ITERM1 ) )  GO  TO  302 
GO  TO  304 

IF  I JTERM  .GE.  2)  GO  TO  37 
SOURCE  =P.ESCRMl  ITER) 

CO  TO  3° 

37  IF (RESORMf ITER)  .LE.  SOURCE)  GO  TO  38 
GO  TO  304 

38  SOURCE =RE30RM( ITER) 

39  CONTINUE 

WRITE  (6,95)  ITER  .RESORMf  ITER  )  .SORSUM 
95  FORMATf 53X, 'ITER= ' ,I2,2X, 'SOURCE1' »F9.6»2X» 'SORMUP* ’ ,F9.6 ) 
DO  23  K=1,NKP1 
DO  23  J=1 ,NJP1 
DO  23  I=1,NIP1 
TPDf I , J,K )=T( I , J,K ) 


00021700 
00021800 
00021900 
0002..000 
00022100 
00022200 
00022300 
00022400 
00022500 
00022600 
00022700 
00022800 
00022900 
00023000 
00023100 
00023200 
00023300 
00023400 
00023500 
00023600 
00023700 
00023800 
00023900 
00024000 
00024100 
00024200 
00024300 
00024400 
00024500 
00024600 
00024700 
00024800 
00024900 
00025000 
00025100 
00025200 
000253C0 
00025400 
00025500 
00025600 
00025700 
00025800 
00025900 
00026000 
OOOColOO 
0002o200 
00026300 
00026400 
00026500 
00026600 
00026  700 
00026800 
00026900 
00027000 
00027100 


CPDII.J.K  MCII.J.K  ) 

00027200 

RPDU,J,K)sRII,J,KI 

00027300 

UPD(I,J,K)=UII,J,K) 

00027400 

VP01I,J.K)*VII,J,K) 

00027500 

HPDiI,J,K)*W(I,J,K) 

00027600 

PPDII,J,K)=P(I,J,K) 

00027700 

23 

CONTINUE 

00027800 

JJTERM=0 

00027900 

IFIITER  .EQ.  ITMAX)  GO  TO  49 

00028000 

IFUTERM  .EQ.  2 )  GO  TO  35 

00028100 

IFIITER  .EQ.  4)  GO  TO  29 

00028200 

35 

CONTINUE 

00028300 

IFIJTERM  .EQ.  3 )  GO  TO  58 

00028400 

IFIITER  .EQ.  71  GO  TO  29 

00028500 

CO 

CONTINUE 

00028600 

JJTERM-0 

00028700 

GO  TO  301 

00028800 

304 

cotrriNUE 

00028900 

JJTERM=JJTERM*1 

00029000 

IFIJJTERM  .EQ.  11  WRITE 1 6,95 )  ITER .RES0RM1 ITER ) .SORSUM 

00029100 

IFUTERM  .EQ.  1)  GO  TO  41 

00029200 

IFUTERM  .EQ.  2  .AND.  JJTERM  .EQ.  1  .AND.  ITER  .NE.  5)  GO  TO  41 

00029300 

GO  TO  82 

00029400 

41 

CONTINUE 

OO029SOO 

DO  40  K=1 >NKP1 

00029600 

CO  40  J=1,NJP1 

00029700 

CO  40  I=1,NIP1 

00029800 

RII,J,K)=RPOII»J,K) 

00029600 

Ul  I  ,J  »K  )=UPD<  I  >  J  >K  ) 

00030000 

VII, J,K  l=VPD(I,J,K) 

0003C100 

WII,J,KI=WP0(I,J,K) 

00030200 

PI  I ,J  ,K  l-PPDI I  ,J,K  ) 

00020300 

40 

CONTINUE 

00030400 

IFIITER  .EQ.  ITMAX  1  GO  TO  49 

00020500 

GO  TO  29 

00030600 

82 

CONTINUE 

00030700 

DO  43  K*1,NKP1 

00030800 

DO  43  J-l >NJP1 

00030900 

CO  43  1=1 »NIP1 

00031000 

TII,J,K  )=TPD(I,J,KI 

00021100 

C(I,J,Kl=CPD(I,J,K) 

00031200 

RII.J.K  l  =  RPDl  I ,J  »K  ) 

00021300 

Ul  I  ,J  >K  )  =UP D 1 1  iJ.K  ) 

00031400 

Vtl.J.K  J=VPDII,J,K) 

00031500 

W(  I  ,J,K  )-WPD(  I  ,J,K  ) 

OOOSloOO 

PII.J.K  I=PPDII,J,K) 

00021700 

43 

CONTINUE 

00031800 

IFIITER  .EQ.  ITMAX  1  GO  TO  49 

00031900 

IFKJTERM  .EQ.  3  .AND.  ITER  .NE.  81  .OR.  JJTERM  .EQ.  2)  GO  TO  49 

00032000 

GO  TO  301 

00032100 

49 

CONTINUE 

00032200 

00032300 

ITERT=ITERT«ITER 

00032400 

00032500 

c 

GO  TO  THE  PRESSURE  TRACKING  SUBROUTINE  .PRINT  OUT  « 

00032600 
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ooonoo  o  ooo 


C  RESULTS  If  AT  THE  RIGHT  TIME  INTERVAL  « 

cttmnmtmtttimittmtmHtitnmmttttmmttnmttt 


CALL  PTRACK 

If  ( MODI  NTREAL  ,NWRP  ) . EQ.O  )  CALL  OLTT(  1 ) 


FINO  TEMPERATURES  AT  THERMOCOUPLE  POINTS  AND  PRINT  OUT  X 
If  AT  THE  RIGHT  TIME  INTERVAL  V. 

zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz 


CALL  TCP 

IP  ( MOD  1  NTREAL ,t*IRP). EQ.O)  CALL  OUTl  2  > 

2422  CONTINUE 

IP  ( MOO  1  NTREAL »NNRIT£  I  .EQ.O  I  CALL  OUT( 3  ) 

If (NTREAL  .EQ.  NTREAL/NWRITE*NWRITE  )  CALL  OUTl  3) 
SOS  CONTINUE 

I F ( ( XTIME ♦0TIME*HAI0  )  .GE.  TMAX )  GO  TO  277 


CALL  TLEfTI IT  I 
123  FORMAT!  '  ITLEFT  =  ‘,110 ) 
IT0=IT 

IfdT.LT. ITLEFT)  CALL  OUTI3) 


C  ***  RESET  THE  OLD  TIME  VALUES  TOD,  ROD,  UOO,  VOD  AND  POD. 

DO  305  K=1 ,NKP1 
00  305  J=1,NJP1 
DO  305  I=1.NIP1 
TODl  I  ,J,K  )=T(I,J,K  ) 

C00<  I , J  ,K  )£C(  I  ,J ,K  ) 

ROD!  I ,  J  ,K  )-R(  I  ,J ,K  ) 

UOD(I,J,Kl=ua,J,K) 

VOD(  I ,  J  ,K  lsV!  I ,  J  ,K  ) 

KOO(I,J,K  >=W!  I.J.K) 

PODH,J,K)=P(I,J,K) 

305  CONTINUE 

C  1 1 1 1 1 1 1 1 1 1 !  1 1 !  1 1 !  1 1 1  i  1 1 1 1 1 1 1 1  i  1 1 1 1 1 1 1 1 1 1 1 !  I !  1 1 1 1 1 1  i !  i !  1 1 1 !  1 1 1 1 1 

C  THIS  WRITING  IS  FOR  PLOTTINGS  I 

Cl  I  I  I  I  I i I  I  I ! I  I  I  I  I  I  I  I i I  I  I ! I  I | I  I i I  |  |  I  II  I  |  |  III  I  II  I  I  |  |  |  |  t  I  I  I  I  II  I  I  I  I  I  I 
IF< NTREAL  .NE.  NTREAL/NTAPE»NTAPE  IGOTO  522 
IWRITE  =  10 
WRITE ! IWRITE I 

8  TIME ,NTRE AL ,T ,R ,U ,V,H ,P ,CPM ,COND ,VIS,QRNET ,ITERT ,QCORRT ,PM1 ,PM2 , 
8  H ,TA ,U0 .CONDO ,VISO ,RHOO ,NI ,NJ ,NK ,NIP1 ,NJP1 ,NKP1 .NIMl ,NJM1 ,NKM1 , 

8  XC ,YC ,2C ,XS ,YS ,2S ,DXXC ,OYYC ,D22C ,DXXS ,DYYS ,D2ZS 
WRITE (  6  »* )  'THE  TIME  WHEN  THE  DATA  WAS  STORED  ON  TAPE  IS:', 

8  XTIME 


00032700 

00032800 

00032400 

00033000 

00033100 

00033200 

00033300 

00033400 

00033500 

00033600 

00033700 

00033800 

00033400 

00034000 

00034100 

00034200 

00034300 

00034400 

00034500 

00034600 

00034700 

00034800 

00034400 

00035000 

00035100 

00035200 

00035300 

00055400 

00035500 

00035600 

00035700 

00035800 

00035400 

00036000 

00036100 

00036200 

00036300 

00036400 

00036500 

0003t>600 

00036700 

00036800 

00036900 

00037000 

00037100 

00037200 

00037300 

00037400 

00037500 

00037600 

00037700 

00037800 

00037400 

00038000 

00038100 
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t  n  o  o  ooooo 


522  CONTINUE 


CALL  TLEFTI IT ) 

IFl IT.LT.ITLEFT )  GO  TO  166 


TIMREM  IS  USED  TO  CALCULATE  THE  CPU  TIME  REMAINING  AT  NPS 


IF  ( TIMREMI  0. ) . LE .80. )  GOTO  166 

GO  TO  500 
503  CONTINUE 
277  CONTINUE 

NRITEI 6,1111 ) 

1111  FORMAT I  2X  > ' ******  THE  MAXIMUM  TIME  HAS  BEEN  REACHED  ******',18) 
GO  TO  172 


166  IFl NTREAL  .NE.  NTREAL/NTAPE*NTAP£ )  WRITE! 9) 

&  TIME,  NTREAL, T ,R  ,U,V,W ,P ,CPM,COND , VIS, QRNET ,ITERT ,GC0RRT,PM1 ,PM2 , 
*  H ,TA ,U0 ,CONDO ,VISO ,RHOO ,NI ,NJ ,NK ,NIP1 ,NJP1 ,NKP1 ,NIM1 ,NJM1 ,NKM1 , 

«  XC , YC ,2C ,XS , Y3 ,23 ,OXXC ,OYYC ,D22C , DXXS , DYYS , D22S 
REWIND  9 


GOTO  172 
2020  CONTINUE 

WRITE  16,*)  •  RESIDUAL  MASS  IS  LARGER  THAN  10.0,  PROGRAM  STOPS' 
172  CONTINUE 
STOP 
END 


00028200 

00038200 

00038400 

00038500 

00028600 

00028700 

00038800 

00028900 

00039000 

00039100 

00039200 

00029500 

00029400 

00039500 

00039600 

00039700 

00039800 

00039900 

00040000 

00040100 

00040200 

00040300 

00040400 

00040500 

00040600 

00040700 

OOOhOSOO 

00040900 

00041000 

00041100 

00041200 

00041300 

00041400 

00041500 

00041600 

00041700 


HHHHHHHHHH IHUHHHHHHHHHHHHHHHt  00041800 


SUBROUTINE  INPUT 


* 

THIS  SUBROUTINE 

* 

VARIABLES  ARE: 

* 

KRUN 

* 

* 

NCHIP 

* 

NNRP 

* 

* 

NTHCO 

* 

TMAX 

* 

TWRITE 

* 

* 

TTAPE 

# 

OTIME 

* 

HSZ 

If 

* 

ICHPB 

SETS  UP  REQUIRED  VALUES  TO  BEGIN  THE  PROGRAM. 

=  WHEN  EQUAL  TO  ONE, READ  FROM  THE 

RESTART  DISK,  ELSE  FROM  THE  JCL 
=  NUMBER  OF  SOLID  PIECES 

=  NUMBER  OF  TIME  STEPS  TO  WRITE  ON  THE 

PAPER 

=  NUMBER  OF  THERMOCOUPLES  TO  PRINT  OUT 

*  MAXIMUM  TIME  ALLOWED  I  REAL) 

=  SECONDS  IN  REAL  TIME  TO  PRINT  THE 

P,V,T  FIELDS  ON  PAPER 
=  TIME  INTERVAL  TO  WRITE  ON  THE  TAPE 

=  TIME  STEP  I  DIMENSIONLESS) 

=  HEAT  SOURCE  SI2E ,  USED  TO  CALCULATE 

THE  VOLUME  OF  THE  FIRE  CELL 
=  FIRST  SOLID  NODE  IN  THETA  DIRECTION 


0D041900 

00042000 

*00042100 

*00042200 

*000h2300 

*00042400 

*00042500. 

*00042600 

*00042700 

*00042800 

*00042900 

*00043000 

*00043100 

•00043200 

*00043300 

*00043400 

*00043500 

*00043600 
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*  JCHPB  =  FIRST  SOLID  NODE  IN  R  DIRECTION  *0004X700 

*  KCHPB  =  FIRST  SOLID  NODE  IN  PHI  DIRECTION  *00045800 

*  NCHPI  =  NUMBER  OF  NODES  IN  THETA  DIRECTION  *00045400 

«  NCHPJ  =  NUMBER  OF  NODES  IN  R  DIRECTION  *00044000 

*  NCHPK  =  NUMBER  OF  NODES  IN  PHI  DIRECTION  *0004*100 

*  CX.CY.CZ  =  THERMOCOUPLE  POSITIONS  IN  THETA, R, PHI  *00044200 

>  ********************  ******** *********»»«***■»»***»***»*»«  *****«,HHHrtHHHt«00044500 

00044400 

C0MH0N/R4/XCI 93 ) ,YC( 93  1  ,ZC( 93  )  ,XSI  93  1  ,YS( 93 ) ,ZSt  93 ) ,  00044500 

<  DXXC! 93  I ,DYYC( 93  )  ,0ZZC( 93  !  >DXXSI 93  I  ,DYYS( 93 ) ,DZZS(  93 )  00044600 

C0MM0N/BL1/DX.DY ,0Z ,VOL .OTIME .VOLOT ,TH0T .TCOOL ,PI ,Q,QR  00044700 

C0MM0N/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NXP1 ,NXM1  00044800 

S  »NIP2  ,NJP2  »NKP2  ,NA  ,NAPI  ,NAM1  ,NB ,NBP1  ,NBM1  ,KRUN .NCHIP  .NJRA.WRP  00044900 
COMMON/BL12/  NHRITE ,NTAPE .NTMAXO .NTREAL .TIME .SORSUM , ITER  00045000 

C0MM0N/BL14/HC0EF ,TINF ,CNT .ABTURB .BTURB , VISL , VISMAX .QCORRT ,PM1 .PM20004S100 
COMMON/BL16/  CONST1 .CONST 2 .C0NST3 .C0NST4 .CONST* .NT ,U0 ,H ,U6RT .BUOY ,00045200 

<  CPO.PRT, CONDO .VISO.RHOO, HR,  TR.TA.OTEMP .TWRITE ,TT APE, TMAX.GC.RAIR00045300 

COMMON/BL20/SIG1K 22,16,32)  ,SIG12< 22,16,32)  ,SIG22( 22,16,32)  00045400 

«  ,S1G13( 22,16,32  )  ,SIG23I 22,16,32  )  ,SIG33( 22,16,32 )  00045500 

C0WM0N/BL22/1CHPB! 10  )  ,NCHPI( 10  ) , JCHPB! 10  )  .NCHPJt 10 ) .KCHPBl  10 ) ,  00045600 

t  NCHPKI 10  )  ,TCHP( 10  I  ,CPS( 10 ) ,CONS( 10  )  »WFANI 10 )  00045700 

C0MM0N/BL31/  TOO! 22,16,32  ),ROD( 22,16,32  ),POD< 22,16,32)  00045800 

<  ,COD(  22,16,32  I, UODI 22 ,16 ,32  )  ,VOD( 22,16,32  )  >WODl  22,16,32)  00045900 

COMMON/BL32/  T( 22 ,16 ,32  )  ,R( 22 ,16  ,32  )  ,Pl 22 ,16 ,32  I  00046000 

t  ,C( 22,16,32 )  ,U( 22,lo,32J,V(22,lo,32l,W(22>16,32)  OOO40IOO 

COMMON/BL33/  TP0( 22 ,16 ,32  )  ,RPD( 22 ,16 ,32  )  ,PPDl 22 ,16 ,32  )  00046200 

<  ,CPDI  22,16,32  I, UPOi 22 ,16 ,32  )  ,VP0( 22 , 16 ,32  )  ,WPDI 22,16,32 )  00046300 

C0MM0N/8L34/  HEIGHT! 22 ,16,32  )  ,REO( 22 , 16 ,32  ) ,  00046400 

a  SMPt  22,16,32  1  ,SMPP( 22 ,16 ,32  )  ,PP{ 22,16 ,32  ) ,  00046500 

a  DU!  22,16,32) ,DV( 22,16,32  I  ,DH( 22,16,32)  00046600 

C0MM0N/BL36/AP! 22,16,32  ),AE( 22 ,16 ,32  ), AW! 22 , 16 ,32  ) ,AN( 22,16,32),  00046700 

a  AS (22, 16, 32  l,AF(22,16,32  I , ABt  22,16,32),  00046800 

a  SP( 22 , lo ,32  ) ,SUI 22,16,32 >,RI( 22,16,32  )  00046900 

COMMON/BL37/  VIS!  22 , lo ,32 ) ,COMD( 22.16,32)  ,NOD( 22,16,32) ,RHALL!  579 100047000 
8  ,CPM(  22 ,16,32 ),HSZ( 3,2  l.NHSZl 22,16,32  •  .RESORMl 93 )  00047100 

C0MM0N/BL38/NTHC0.CX! 12  )  ,CY( 12  )  ,CZ( 12  )  ,NTH( 12,3  )  .TCOUPl 12  )  00047200 

00047300 

00047400 

C  *1.  READ  IN  OATA  TO  INDICATE  EITHER  KRUN=0  OR  1  00047500 

READ! 5,*  )  KRUN, NCHIP, NHRP.NTHCO  00047600 

00047700 

C  *2.  READ  IN  DATA  SET  1  -  6  OATA  00047800 

RE AD! 5 ,*  )  TMAX, TWRITE ,TT APE, DTIME  00047900 

00048000 

C  #3.  READ  IN  DATA  FOR  HEAT  SOURCE  OOO46IOO 

00048200 

READ  (5,*)  HSZ!  1,1)  ,HSZ(  1,21  ,HSZ(  2,1)  ,HSZ(  2,2)  ,HSZ!  3,1*  ,HSZ(  3,2)  00048300 
WRITE!  6,20)  HSZ!  1,1)  ,HSZ(  1,2  )  ,HSZ(  2,1)  ,HSZ(  2,2)  ,HSZ!  3,11  ,HSZ<  3.2)  00048400 
20  FORMAT  !/,20X,'HEAT  SOURCE  LOCATION  IS  IN  THE  VOLUME  I  NON-DIME’,  00048500 
a  ’NSICNAL  WITH  RESPECT  TO  RADIUS)*,  00048o00 


a 

/ »5X, ' FROM 

'  »F8.4, ' 

TO 

'  ,F8.4, * 

IN  X-DIRECTION* , 

00048700 

a 

/,5X, 'FROM 

'  ,F8.4, ' 

TO 

' ,F8.4, * 

IN  Y-DIRECTION’ , 

00048800 

a 

/,5X, ’FROM 

*  ,F6.4, * 

TO 

*  ,Fflfc\,  * 

IN  Z-DIRECTION’ ,/) 

00048900 

00049000 

00049100 


o  o  no 


C  14.  READ  IN  DECK  DATA 

IF  ( NCHIP . EQ. 0 )  GOTO  16 
PRINT  * 

PRINT  *,’  THE  REGION  BOUNDED  BY  SOLID’ 

DO  14  N*1,NCHIP 

READ  I5,«)  ICHPB!  N  I  ,NCHPI  (  N  I  , JCHPB!  N  •  »NCHPJ!  N  I  »KCHPB( N  )  , 

S  NCHPK I N ) ,TCHPI N I ,CPSl N ) ,CONSI N  )  .HFANl N  ) 

WRITE  (6,10)  N.ICHPBIN),  NCHPK  N ), JCHPB! N  )  .NCHPJI N  )  .KCHPBl N  ) , 

A  NCHPK! N  I  »TCHP<  N ) ,CPS( N  I  ,WFAN( N ( ,C0NSl N I 

10  FORMAT  I2X,’N=  ’,12,’  ICHPB*  ’,I2,‘  NCHPI*  ’,12,  ’  JCHPB*  ’,12, 
*’  NCHPJ*  *  ,12,  ’  KCHPB*  ,,I2,’  NCHPK*  ’,12,  ’  TCHP*  ’ ,F8.S, 

*’  CPS*  * ,F8.S,/,  *  WFAN  *  '  ,F12.5,  *  CONS*  ’,F12.5,/) 

19  CONTINUE 
16  CONTINUE 


15. 


00049200 
00049500 
00049400 
0004*500 
00049600 
OOOh«?0O 
00049600 
00049900 
00050000 
00050100 
00050200 
00050500 
00050400 
00050500 
00050600 
00050700 
00050&00 
00050900 
00051000 
00051100 
00051200 
00051500 
00051400 
00051500 
00051 600 
00051700 
00051800 
00051900 
00052000 
00052100 
00052200 
00052500 

_  00052400 

»**  <HHHHHW<HHHHHHHMHHHHHHHHHHHMHHHHHHHHHW<WHHHHHHHHHHHHHHHHHHHHHHHHI  00052500 
SUBROUTINE  INIT  00052600 

**»**•»**»#»•*»»*»**»*»*•*»*«•»****•••*«****•»*••««*«••*•«*•«<,•*•*•***•  00052800 


INPUT  THERMOCOUPLE  COORDINATE 
IN  TERMS  OF  X( THETA),  Y( RADIUS ),Z( PHI  ) 


THERMOCOUPLE  POSITION  IN  TERMS  OF  THETA,  R,  PHI’ 


PRINT  » 

PRINT  «,  ’ 

PRINT  • 

DO  110  1*1 ,NTHCO 
READ  (5,*)  CX(I  l,CY(I  ),CZ!I  ) 
WRITE  I6,«(  I,  CX!I(,CY!I),CZII) 
110  CONTINUE 

RETURN 

ENO 


« 

THIS  SUBROUTINE 

INITIALIZES  THE  FIELD  AND  CONSTANTS  WITH  RESPECT 

*00052°00 

* 

TO  INITIAL  START 

OR 

RESTARTING  CAPABILITY. 

600055000 

* 

VARIABLES  ARE  : 

•00055100 

# 

TIME 

= 

DIMENSIONLESS  TIME 

•00055200 

* 

UO 

= 

CHARACTERISTIC  VELOCITY  <1  FT/SEC) 

*00055300 

* 

H 

= 

CHARACTERISTIC  LENGTH  ( RADIUS! 9 . 6FT ) ) 

•00053900 

* 

TR 

- 

TEMP  IN  DEGREES  KELVIN 

*00055500 

# 

TA 

= 

TEM°  IN  DEGREES  RANKINE 

•00053600 

* 

VISO 

= 

REFERENCE  VISCOSITY  (NONDIM) 

•00053700 

* 

VISE 

= 

MINIMUM  VISCOSITY  (NONDIM) 

*00053800 

* 

VISMAX 

= 

MAXIMUM  VISCOSITY  (NONDIM) 

*00053*00 

* 

HR 

= 

RADIUS  IN  CM 

*00054000 

* 

CONDO 

= 

REFERENCE  CONDUCTIVITY 

*00054100 

« 

CO 

= 

INITIAL  SMOKE  CONCENTRATION 

•00054200 

tt 

NJRA 

s 

POINT  OF  RADIATION  IN  J  DIRECTION 

•00054300 

* 

LOCATED  ON  THE  INNER  SOLID  BOUNDARY 

*00054400 

« 

HCONV 

= 

HEAT  TRANSFER  COEFFICIENT 

•00054500 

# 

HCOEF 

= 

DIMENSIONLESS  HEAT  TRANSFER  COEF 

•00054600 

1 


I 
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* 

C0NST1 

= 

USED  TO  NONOIMFNSIONALIZE  PRESSURE 

*00054700 

* 

RHOO 

= 

REFERENCE  DENSITY 

•00054800 

« 

GC 

= 

GRAVITY  CONSTANT 

•00054900 

* 

BUOY 

X 

BUOYANCY  FORCE  CONSTANT 

*00055000 

UGRT 

X 

PERFECT  GAS  LAW  NONDIMENSIONAL  CONSTANT* 00055 I 00 

* 

CPO 

r 

REFERENCE  SPECIFIC  HEAT 

*00055200 

* 

►WRITE/ 

s 

NONDIMENSIONAL  FORMS  OF  TWRITE  AND 

*00055300 

* 

NTAPE 

TTAPE 

*00055400 

* 

MATRICES  OF  THE  1 

FORM 

*00055500 

* 

_00 

X 

DIMENSIONLESS  PARAMETER  AT  OLD  TIME 

*00055600 

* 

X 

DIMENSIONLESS  PARAMETER 

*00055700 

* 

>0 

s 

UPDATED  DIMENSIONLESS  PARAMETER 

*00055800 

« 

HHERE  THE  PARAMETERS  ARE 

*00055900 

* 

U,V,N 

X 

VELOCITY  IN  THETA,  R  ,  PHI  DIRECTION 

•00056000 

* 

T  ,P»C 

= 

TEMP,  PRESSURE,  AND  SMOKE  CONCENTRATION*00056l00 

« 

•00056200 

* 

DU,DV,DZ 

X 

USED  IN  PRESSURE  CORRECTION  SUBROUTINE 

•00056300 

* 

PP 

X 

CORRECTED  PRESSURE  (P‘) 

•00056400 

« 

su 

X 

SOURCE  TERM 

•00056500 

« 

SP 

X 

TERM  AT  P  NODAL  POINT  FOR  BOUNDARY 

•00056600 

* 

CONDITIONS 

•00056700 

* 

A  P 

X 

COEFICIEMT  AT  NODAL  POINT 

•00056800 

* 

AE ,AH,AN 

X 

COE FICIENT3  AT  PTS  E AST , NEST .NORTH , 

*0005o900 

* 

AS.AF ,AB 

SOUTH,  FRONT,  AND  BACK 

*00057000 

* 

SMP 

X 

RESIDUAL  MASS  SUMMATION  OF  NODAL  POINT 

*00057100 

« 

SMPP 

X 

LENGTH  SCALE  FOR  TURBULENCE 

•00057200 

* 

CPM 

X 

MEAN  SPECIFIC  HEAT 

*00057300 

» 

VIS 

X 

VISCOSITY 

*00057400 

* 

COND 

X 

CONDUCTIVITY  MATRIX 

*00057500 

* 

NHSZ 

X 

WHEN  THIS  VALUE  EQUALS  ZERO,  THERE  IS 

•00057600 

* 

NO  HEAT  SOURCE  LOCATED  AT  THE  NODE 

*00057700 

* 

NOO 

X 

IF  EQUAL  TO  ZERO,  LIQUID 

*00057800 

* 

IF  EQUAL  TO  ONE,  SOLID 

*00057900 

* 

_B,_E 

X 

BEGINNING  AND  ENDING  NODAL  POINT  FOR 

*00058000 

* 

THE  SOLID  IN  I,J,K 

*00053100 

« 

REQ 

X 

CENSITY  AT  EQUILIBRIUM 

*00058200 

* 

NIPl 

= 

NODAL  POINT  IN  I  PLUS  1  (OTHERS  SIMILAR *00058300 

* 

XC,YC,2C 

= 

THETA, R, PHI  LOCATION  OF  NODAL  POINT  OF 

*00055400 

* 

A  CENTER  CELL 

•00C58E00 

# 

DXXC.DYYC 

X 

LENGTH  AROUND  THE  CENTER  CELL 

*00058600 

# 

DZ2C 

*00058700 

# 

XS.YS.ZS 

= 

THETA, R, PHI  LOCATION  OF  NODAL  POINT  OF 

*00058800 

* 

A  STAGGERED  CELL 

*0005S°00 

# 

OXXS.DYYS 

X 

LENGTH  AROUND  THE  STAGGERED  CELL 

*0005°000 

* 

DZZS 

*00059100 

* 

CX, CY.CZ 

X 

LOCATION  OF  THERMOCOUPLE  IN  THETA ,R ,PHI«00059200 

******  **************  »*#*#■***#***  ******  **************  0  0  C5  9  5  0  0 

C0MM0N/R4/XC l  93  >,YC<  93  >,ZC(  93  !,XS(  93  ),YSI  93  >,ZSI  93),  00059400 

S  OXXCI 93  )  ,0YYC1 93  )  >DZZC ( 93  )  >DXXS( 93  )  >DYYS( 93  )  ,DZZS( 93  )  00059500 

C0MM0N/BL1/DX  >DY  >02  ,VOl  ,OTIMH  »VOL0T ,THOT , TCOOL  ,PI  ,Q ,QR  00059600 

C0MM0N/BL7/NI  ,NIP1  ,NIM1  ,NJ ,NJP1  ,NJM1  ,NK ,FKP1  ,NKM1  00059700 

t  ,NIP2  ,NJP2  ,NKP2  ,NA  ,NAP1 ,NAM1  ,N3  ,NBP  1  ,NBM1  ,KRUN  .NCHIP  ,NJRA  ,NKRP  00059800 
COmON/BL12/  NHRITE.NTAPE.NTMAXO.NTREAL, TIME .SORSUM, ITER  00059900 


COMMON/BL I4/HCOE  F >TINF ,CNT , ABTURB .BTURB ,VISL , VI SMAX , QCORRT ,PM1 ,PM200060000 
C0MM0N/BL16/  C0NST1  .CONST2 .CQNST3  .C0NST4.C0NST6  >NT ,U0 ,H,DGRT >BUOY  ,00060100 
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i 


X  CPO, PRT, CONDO ,VISO,RHOO, HR ,TR ,TA .DTEMP .TWRITC .TTAPE .TMAX.GC .RAIR00060200 
COMMON/BL20/SIG11) 22 ,16 ,32  )  ,SIG12I  22 , lb ,52  )  .SIG221 22,16,52  1  00060500 

.SIG15I 22,16,32 1,SIG23( 22,16,52  ).S1G55I 22,16,32  )  00060400 

C0f*10N/BL22/ICHPB(  10  )  ,NCHPII  10  ) ,  JCHPBl  10  I  ,NCHPJ(  10  I  ,KCHPB(  10  ) ,  OOObOSOO 

NCHPKl  10  )  ,TCHP(  10  I  ,CPS1  10  )  ,  CONS  I  10  )  ,HF AN!  10  I  OOOoObOO 

C0MM0N/BL31/  T00( 22 ,16 ,52 ( ,RODt 22 ,16 ,32  I  ,POOI 22 , 16 ,32  I  00060700 

,CODI  22,16,32  I ,U02>!  22,16,32  J ,VODI 22 ,16 ,32  )  ,HOOI 22,16,32 )  OOO0O8OO 
COMMGN/bi.32/  Tl 22,16,32  I, ft) 22, 16, 32), PI  22,16,32  I  00060900 

,C( 22,16,52  ),U( 22, 16,32  )  ,V( 22. 16, 32), HI  22,16,52)  00061000 

COMMON/BL33/  TPO) 22,16 ,32  ) ,RPD< 22 ,16 ,32  ),PPD< 22 ,le ,32  1  00061100 

,CPDI  22,16,32) ,UPD( 22,16,32  I  ,VPO( 22,16,32)  ,HPD( 22,16,32 )  00061200 

C0MM0N/BL34/  HEIGHT) 22 , 16 ,32  )  ,REQI 22 ,16 ,52  ) ,  00061300 

SM?( 22,16,32 i.SMPPI  22,16,32 ),PP< 22,16,32),  00061400 

DU) 22 , 16 , 32 ) ,0V) 22 , 16 ,32  )  ,OHl 22 , 16 , 32  )  00061500 

C0FtK)NP/BL36/AP(  22,16,32),AEI22>16,32)  >AWI  22,16,32  )  »ANI  22,16,32),  00061600 

AS) 22,16,32 >,AF< 22 ,16 ,32  '  ,AB) 22,16,32  ) ,  00061700 

SPl 22,16,32  ),SUt 22,16,32  l,RI( 22,16,32  )  00061800 

C0MM0N/eL37/  VIS) 22 , 16 ,32 ) .CONDI  22,16,32)  ,NOD< 22,16,32) .RHALLI S79 )000bl900 

00062000 
00062100 
00062200 
0006230C 
00062400 
000b2500 
00062600 
00062700 
00062800 
00062900 
00063000 
00063100 
00063200 
00063300 
00063400 
00063500 
00063600 
00063700 
00063800 
00063900 
00064000 
00064100 
00064200 
00064300 
00064400 
00064500 
00064600 
00064700 
00064800 
00064900 
00065000 
00065100 
00065200 
00065300 
00065400 
00065500 
00065600 


t  »CPM) 22,16,32 )»HSZI  3,2 ) ,NHSZ( 22,16,32  ),RESORH( 93) 

C0MM0N/BL38/NTHC0 ,CXl  12 ) ,CVI  12 ) ,C21 12  )  >NTHI 12,3)  ,TCOUP) 12 ) 
C0MM0N/BL3  9/ALEH , PCURVE .CONSRA , PCURM1 ,PSOUTH ,QCORR .PERROR 
DATA  GRAV/32 . 17/ 

C  ***  INTRODUCE  GIVEN  PARAMETERS 

TIME  =0 . 

TR=TA/1 .8 
H*9. 6 

VIS0=VIS0/U0/H 
VISLsVISO 
VISMAX=400.«VISL 
HR=H*30 . 48 
CONDO =VISO/PRT 
PI=4.*ATANI 1. ) 

ALEN  *1.0 
MJRA*15 

C  THE  HEAT  TRANSFER  COEFFICIENT  IS  IN  BTU/HR/FT**2/F 
HCONVslS.O 

HCOEF=HCONV/( 3600.*CP0*RHOO«U0 ) 

CC  *  0.0 


C0NST1 =RHOO*UO*UO/(  GC*14 .696*144.) 

C0NST3*1.8/TA 

CONST4*H*30.48 

CONGTb=UC*30 .48 

NTMAXO=0 

BUOY  =GRAV*H/I  UO«UO ) 

UGRT  =UO*UO/l GC*RAIR*TA ) 

TC00L=1.0 

CONSRA *T A*TA*T A/ ( RHO0*CP0*U0*3600 . )*1 . 714E-9 
WRITE) 6,200)  TR, CONDO, VISO,CPO, HR, DTIME ,HCONV 
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200  FORMAT!  5X,  'THE  REFRENCE  TEMPERATURE  AND  THERMAL  PROPERTIES1,/, 
(  / «5X ,  'T  =  1  , F10 . 4 , ’ K ,  CONDO  =  '.ElZ.b, 

(  /,5X,*VIS0  =  *,E12.6,'  CPO  *  ',£12.6, 

t  /, 5X,1 RADIUS  *  *  ,E12.6, 1  CM1, 

t  /  ,5X , 1 DTIME  *  ‘.E12.6, 
t  / >5X > 1 HCONV  *  ‘,E12.6,/) 

NHP.ITE  =TWRITE»lKVOTIME/H 
NTAPE=TTAPE*UO/DTIME/H 
C  ***  PRINT  OUT  INPUT  INFORMATION 

WRITE! 6,61 )  (STAR, 1  =  1, 90  I  ,KRUN .TMAX .THRITE ,TTAPE ,6HRP 
61  FORMAT i /// , 90A1 ,/ ,5X , *KRUN  =‘,I2./,5X, 

(  1 TMAX  r'.FS.J,1  SECONDS' ,/5X, 'TWRITE  =',F8.S, 

;L.:o*cr- ,,',sx. 'ttape  “‘.Fa.s,1  seconos1, 

A  /»SX» 1  NUMBER  INTERVALS  OF  WRITING  ON  PAPER  *,  15,/) 

C  »**  INITIALIZE  VARIABLE  FIELD 

DO  220  J=1,NJP1 
DO  220  1=1 ,NIP1 
00  220  K=1 >NXP1 
ROOI I  ,J  ,K  )=1 . 

Rl  I , J ,K  1  =  1. 

RPDI I ,J,K  )=1. 

UOOll.J.K  1=0. 

U(  I ,J,K  t=0. 

UPP!  1 , J ,K  1=0. 

VOO!  I  >J  ,K  1=0 . 

VI  I,J,K  1=0. 

VPDI I . J *K  1=0. 

N(I,J,K  1=0. 

WPDH.J.K  1=0. 

NODI  I,J,K  (=0. 

POD  1 1  >J,K  1=0. 

P(I,J,K  1=0. 

PPDI I ,  J  ,K  1=0 . 

DUI I  , J  ,K  )  =  0. 

DV(  I ,J ,K  1=0. 

DNtl.J.K  1=0. 

SL'I  I,J,K  1=0. 

SPl  I  ,J,K  )=C. 

PP!  I , J ,K  1=0. 

APlI.J.K  1=0. 

AH!  I ,  J  ,K  1=0. 

AE  ( I , J ,K  1=0. 

AM!  I.J,K )=0. 

AS! I >U,K  1=0. 

AF(  I ,  J,K  (=0. 

AB<I,J,K  1=0. 

SMPI I »J,K )=0. 

Sr.PP!I,J,K  (=0. 

VIS!  I , J  »K )=VISL 
COND! I , J  »K  )=C0ND0 
CPM(I,J,K)  =  1.0E0 


00065700 
00065600 
00065900 
00096000 
OOOoolOO 
00096200 
00096300 
00066400 
00066500 
00066o00 
00066700 
00066800 
00066900 
00067000 
00067100 
00067200 
00067300 
00067400 
00067500 
00067600 
00067700 
00067800 
00067900 
Q00b8000 
00068100 
00068200 
00068300 
00068400 
00068500 
00068600 
00068700 
00068800 
00068900 
00069000 
00069100 
00069200 
000o9300 
0006  "',00 
0006  . -  TO 
000b9fa00 
00069700 
00069800 
00069900 
00070000 
00070100 
00070200 
00070300 
00070400 
00070500 
00070600 
00070700 
00070800 
00070900 
00071000 
00071100 
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TODI  I,J.K  »=1 . 0E0 
Tl  I >J  ,K  >=TODl  I  >  J  >K  ) 
TPDtI.J.K  l=TOD(  I ,  J  >K  ) 
COD(  I  ,J»K  l=CO 
C(  I  >J»K  t-COD*  I  >J  ,K  ) 
CPDI I >J  >K ) =COD 1 I  >  J  ,K  ) 
NKS2I  I  ,J,K  )=0 
NCOII  ,J,KI=0 
220  CONTINUE 


C  «*«  DETERMINE  THE  POSITION  OF  HEAT  SOURCE 

DO  SOO  1=2, NX 
DO  SOO  J=2  >NJ 

C  CHANGE  TO  RECTANGULAR  COORDINATES 
XX=YC( J  )*COSl XC( I ) ) 

YY=YC( J )«SINI XCI I ) ) 

C  CHECK  TO  SEE  IF  IN  HS  CONTROL  VOLUME,  IF  SO  SET  NHS2=1 
IF  lXX.LT.HS2l 1,1  K0R.XX.GT.HS21 1,2) »  GOTO  S10 
IF  ( YY.LT.HS2I  2 ,1 ) .OR.YY.GT . HS2I 2,211  GOTO  310 
NHS2(I,J,16  )=1 
NHS2I I ,J>17 )  =  1 

315  FORMAT  ( 2X » 101 4X  ,14 , 2X > 14 ) I 
GOTO  300 
310  CONTINUE 
300  CONTINUE 


C  ***  DEFINE  THERMAL  PROPERTIES  OF  DECK  AND  SOLID 

IF  (NCHIP.EO.O)  GOTO  410 
DO  402  N=1,NCHIP 
IB=ICHFBIN) 

IE  =IB+NCHPI ( N  1-1 
JB=JCHPBIN) 

JE=J5+NCHPJ(N)-1 

KB=KCHFB(Nl 

KE=KBNJCHPKIN>-1 

DO  405  I=IB,IE-1 

DO  405  J=JB,JE-1 

DO  405  K=KB,K5-1 

COND(  I  »J,K  l=CONDO*CONSIN) 

CPMl I , J ,K i=CPO*CPS<  N  ) 

NODI  I ,  J  ,K  1=1  ‘ 

405  CONTINUE 
402  CONTINUE 
410  CONTINUE 


C  ***  FOR  CONTINUING  RUN,  READ  DATA  FROM  TAPE  OR  DISK 


00071200 

00071300 

00071400 

00071500 

00071b00 

00071700 

00071800 

00071900 

00072000 

00072100 

00072200 

00072300 

00072400 

00072500 

00072600 

00072700 

00072800 

00072900 

00073000 

00073100 

00073200 

00073300 

00073400 

0007350C 

00073600 

00073700 

00073800 

00073903 

00074000 

00074100 

00074200 

00074300 

00074400 

00074500 

00074600 

00074700 

00074800 

00074900 

00075000 

00075100 

00075200 

00075300 

00075400 

00075500 

00075600 

00075700 

00075800 

00075900 

00076000 

00076100 

00076200 

00076300 

00076400 

00076500 

00076600 
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IFtKRUN  .EQ.  It  GO  TO  «97 
GO  TO  IS 

9997  REA0I6,EN0*9998> 

J  TIME .NTMAXO , TOD .ROD ,UOO ,VOO ,NOD  ,POO .CPM.COND ,VIS,QRNET 
ART ,PM1 ,PM2 ,XX ,XX ,XX ,XX ,XX ,XX ,N1 ,NJ  ,NK ,NIP1 ,NJP1 ,NKP1 ,NIM1 ,NJM1 
A  .NKM1 ,XC  » YC ,ZC ,XS>YS,ZS,DXXC ,DYYC ,DZZC ,DXXS,DYYS,DZZS 
GO  TO  9997 

9998  CONTINUE 
REMIND  8 
CLOSE  18) 

WRITE t  6 ,« INTMAXO 

IS  CONTINUE 


***  DEFINE  HEIGHT  OF  NODE  POINTS  AND  COMPUTE  HYDROSTATIC 
EQUILIBRIUM  DENSITY  R£Q(I,J,K) 


DO  15  K=1,NKP1 
DO  15  1=1  iNIPl 
DO  15  J=1,NJP1 

DHY=YC(  J  >«SIN<  XC(  I  )  l*SIN<  ZCt  K  )  ) 
HEIGHT)  I  >J  ,K  l-OHY 
15  CONTINUE 
C 

DO  Z29  J=1,NJP1 
DO  229  I=1,NIP1 
DO  229  K=1»NKP1 
AAAA=-BUOY*UGRT*HEIGHT( I , J ,K  ) 

REQ(  I  ,J,K  >  =  EXPl  AAAA) 

IF( KRUN  .NE.  0)  GO  TO  229 
RPD(  I , J ,K  l=REQ(  I ,  J ,K  )/TPDf  I  ,J,K  ) 
ROD(I,J,K  l=RPDH,J,K) 
R!X»J»KI=RPD(I,J,K) 

229  CONTINUE 

C  ***  INITIALIZE  U,V,T,R,P  FIELD 

DO  210  K=1,NKP1 
DO  210  J=1.NJP1 
DO  210  1  =  1  >)JIP1 
TII,J.K)=T031I,J,K) 
C(I,J,K)=COD(I,J,K) 

Rl  I  >  J  >K  i=ROO(  I  >  J  ,K  ) 

Ui  I  » J  tK  l=UOD(  1 1 J  >K  1 
VI  I,J,K  l=VOD(I,J,K  I 
W(l,J,Kl=WODa,J,K) 

PH  ,J,K  )=POD(I,J,K) 

210  CONTINUE 

C  ***  FOLLOWING  IS  FOR  DETERMINING  THE 

DO  SOOO  N=1,NTHC0 
DO  5001  I =1 >NIP1 


00076700 
00076800 
00076900 
00077000 
ITERT.QCOR00077100 
00077200 
00077500 
00077400 
00077500 
00077600 
00077700 
00077800 
00077900 
00078000 
00078100 
00078200 
00078500 
00078400 
00078500 
00078600 
00078700 
00078800 
00078900 
00079000 
00079100 
00079200 
00079500 
00079400 
00079500 
00079b00 
00079700 
00079800 
00079900 
00080000 
00080100 
00080200 
00080500 
00080400 

ooceosoo 
00080600 
00080700 
00080800 
00080900 
00031000 
00081100 
00081200 
00081300 
00081400 
00081500 
00031600 
00081700 

THERMOCOUPLE  POSITIONS  00081800 

00081900 

00082000 

00082100 
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i 


IF  ( XC II). IT . CXI N ) . AND.XCI 1*1 )  .GE .CXI N ) )  GOTO  5002 

5001  CONTINUE 

5002  IIs! 

00  5005  J=1,NJP1 

IF  I  YCI J  ) . LT.CYI N ) . AND . YC I J  +  l  ) . GE . CYI N  )  )  GOTO  5004 
5005  CONTINUE 

5004  JJ=J 

DO  5003  K=1 ,NKP1 

IF  I ZCI K  ) . LT.CZf  N  )  .ANO.ZCI  K+l ) .GE . CZI N )  I  GOTO  5006 

5005  CONTINUE 

5006  KK=K 
NTH(N,1)=II 
NTH(N,2)=JJ 
NTH(N,3)=KK 

5000  CONTINUE 


00062200 
00082500 
00082400 
00082500 
00062600 
00082700 
00082800 
00082400 
00085000 
00085100 
00083200 
00083300 
00083400 
00083500 
00083600 
00083700 
00083800 
00083900 
000840 00 
00084100 
00054200 
00084300 
00084400 
00084500 
00084600 
00084700 
00084800 
00084900 
00085000 
00085100 
00085200 

C0NM0N/R4/XC ( 93 ) ,YCI  «3 ) ,ZC<  93 1 ,XS<  93  I ,YSI  93 ) ,ZSI  93 > ,  00085300 

2  DXXCt  93  I ,DYYC(  93 1 ,OZZC(  93 ) »DXXSI 93 ) »DYYS| 93  )  ,0Z2S( 93  )  00085400 

C0MM0N/BL7/NI  ,NIP1  ,NIM1  ,NJ  ,NJP1  ,NJM1  ,NK.  ,NKP1  ,NKM1  00085500 

£  »NIP2  >NJP2  >NKP2  »NA  ,NAP1 >NAM1 *NB  »NSP1 ,N3M1 >KRUN,NCHIP  »NJRA ,NWRP  00085600 
C0MM0N/BL14/HC0EF ,TINF ,CNT » ABTURB  ,BTURB , VISL > VISMAX,GCORRT  ,PM1 ,PM2000S5700 
C0MM0N/BL16/  C0N3T1 .C0NST2 ,C0NST3 ,C0NST4 .C0NST6 ,NT ,U0 , H ,UGRT ,BUOY ,00085800 
2  CPO.PRT, CONDO, VISO.RHOO, HR ,TR ,TA .DTEMP ,TKRITE ,TTAPE ,TMAX ,GC .RAIR00085900 
C 01  'J10N/B L 3 2 /  T(22,16,32),R(22,16,32),P(22>16,32I  00056000 

2  , Cl  22,16,32  I, U( 22,16,32  ), VI 22,16,32  ),W! 22,16,32  )  00086100 

C0MM0N/BL34/  HEIGHT! 22 ,1b ,32  I  ,REQ< 22 ,16 ,32  ! ,  00066200 

2  SMPI 22,16,32  I ,SHPP( 22 ,16,32  l,PP( 22,16,32 ) »  00066300 

2  OUI 22,16,52  I  >DV( 22 ,le,32 )  >QH( 22,16,32 )  0006&400 

C0MM0N/BL3o/AP(  22,16,32  1 ,AE  I  22 , 16 ,32  I  ,AWI 22,16,32  l,ANI 22,16,32),  00086500 

2  AS 122, 16, 32  I, AFI22, 16, 32  I, A3 122, 16,32),  00056600 

2  SP( 22 ,16 ,52 ) ,SUI 22,16 ,32  )  ,RII 22 ,16 ,32  )  0008o700 

COMMON/B L 3 7/  VIS! 22 ,16 ,32  I , CONDI  22 ,16 ,32  )  ,NODt 22 , 16 ,32  > ,RHALL( 579 )00036800 


RETURN 

END 


***  *«-»**■»*■**•***»**************•-»*«*»»******•»**•-»**«*■»*»#*♦«#*<** 
SUBROUTINE  CALVIS 


THIS  SUBROUTINE  CALCULATES  THE  TURBULENT  VISCOSITY  AND  UPDATES* 
THE  VISCOSITY  MATRIX  * 


,CPMI 22,16,32  ),HSZ< 3,2 J,NHSZ( 22 , 16 ,32 ) ,RESORMI 93) 


C  *** 

c 

c  *** 


CALCULATE  LOCAL  SHEAR  AND  VISCOSITY  VIS(I,J,K> 
SPECIFY  LOCAL  TURBULENT  LENGTH  SCALES  SMPP(I,J,K) 
DO  611  K=2,f« 


00086900 

00087000 

00087100 

00087200 

00087300 

00087400 

00087500 

00087600 


! 


fi 
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KP2=K+2 

KP1=K+1 

KM1=K-1 

KM2=K-2 

CO  611  J=2,NJ 

JP2=J*2 

JP1=J«1 

JM1=J-1 

JM2=J-2 

00  611  1=2, NI 

IP2=I»2 

IP1=I+1 

IM1=I-1 

IM2=I-2 

IF  (I.EQ.2)  IM2=NIM1 

IF  (I.EQ.NI I  IP2=3 

IF  ( NOOi I  ,J,K  ) . EQ. 1 )  GOTO  611 

C  CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

DX.P1=XL(IP1,J,K,0,0) 

OXI  =XUI  ,  J  ,K  ,0 ,0  ) 

DXM1=XL( 1M1 , J ,K ,0 ,0  I 

DYP1=YL( I , JP1 ,K ,0 ,0  ) 

DYJ  =YL( I , J  ,K ,0,0  9 
DYM1=YL( I , JM1 ,K ,0 ,0  ) 

D2P1=2L( I ,J ,KP1 ,0 ,0 ) 

02K  =2L( I ,J,K  ,0,0) 

02M1=2L( 1 , J ,KM1 ,0 ,0 ) 

CC  IF  (J. EG. 2  I  0YS=0YS/2. 

CC  IF  (K.EQ.2  I  DZB=DZ3/2. 

IF  U.NE.NJ)  GOTO  101 

JP2=JP1 

DYN=DYN/2. 

101  IF  (K.NE.NK)  GOTO  102 
KP2=KP1 
D2F=DZF/2. 

102  CONTINUE 

C  ***  CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME  FOR  T 

DXE  =XL( IP1 ,  J,K ,0 ,1 ) 

DXH  =XLII  , J ,K ,0 ,1 ) 

DYN  =YLI  I ,  JP1',K  ,0,2) 

DYS  =YL(I,J  ,K ,0  >2  ) 

D2F  *2LII,J,KP1,0,3) 

0Z3  =2L(I,J,K  ,0,31 

C  ***  CACULATE  OV/DX,D2V/DX2 , DU/OX, D2U/DX2 ,DK/DX  AND  D2H/DX2 


00087700 
00087800 
G00879G0 
00088000 
00088100 
00088200 
00068300 
00088400 
00088500 
00088600 
00088700 
00088800 
00088900 
00089000 
00089100 
00069200 
00089300 
00089400 
00089500 
00089600 
00089700 
00080800 
0008°900 
00090000 
00090100 
00090200 
00090300 
00090400 
00090500 
00090600 
00090700 
00090800 
00090900 
00091000 
00091100 
00091200 
00091300 
00091400 
00091500 
00091b00 
000°1 700 
000°1600 
C0091900 
000°2000 
00092100 
00092200 
00092300 
00092*00 
000»2500 
00092600 
00092700 
00092800 
00092900 
00093000 
00093100 
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i 


DUDX*( Ul  XP1  ,J ,K  l-U(  I  ,J,K  I  l/DXI 
DUDXW^O  .EMU!  IPl.J.K  l-U!  IMl.J.K  )  1/DXH 
DUDXE  =0 . 5*1  Ul IP2  » J ,K  I -Ul I  , J ,K )  l/DXE 
02UDX2M  DUDXE-OUDXW  l/DXI 


DV0XW*0 . 5*1  V(  I ,  JP1  ,K  HVI  I ,  J  ,K  i-VI  IM1 ,  JP1  ,K  )-VI  IM1 , J  ,K  )  l/DXW 
DVDXE  =0 . 5*(  VI IP1 , JP1  ,K  I*V1  IP1 , J ,K  )-VI  I , JP1  ,K  l-VI  I  ,J,K  1  l/DXE 
DVDX=0 . 5*1 DVDXE  +DVDXW  ) 

D2VDX2=  ( OVDXE -DVDXW l/DXI 


DHDXW=0 . 5*1  HI  I  ,  J  ,KP1  WWI  I ,  J  ,K  l-WC  IM1 ,  J  ,KP1 1 -Hi  IM1  >  J  »K  )  l/DXW 
DWDXE  =0 . 5*1  HI  IPX ,  J  ,KP1  l+Wl  IPX  , J  ,K  l-WI  I , J  ,KP1  l-WI  I ,  J ,K  I  l/DXE 
DWDX=0 . 5*1 DWDXE ♦OWDXH ) 

02K0X2-  I DWDXE -DWDXW  l/DXI 


602  CONTINUE 

C  ***  CALCULATE  DU/DY,D2U/DY2,0V/DY,D2V/DY2,DW/DY  AND  D2W/DY2 


DVDY  =  <  VI I ,  JP1  ,K  l-VI  I , J  ,K  I  l/DYJ 
DVDYS=0.5*< VlI,JPl,K  l-VI  I ,  JMI  ,K  ll/DYS 
DVDYN=0 . 5*1  VI I , JP2 ,K  l-VI I , J  ,K  I  l/DYN 
D2VDY2=( DVDYN-DVDYS  l/DYJ 


0UDYS=0 . 5*1  Ul  IP1 ,  J  ,K  l+UI  I ,  J ,K  l-UI  IP1 ,  JMI  ,K  l-UI  I ,  JMI  ,K  I  l/DYS 
DUDYN=0 .5*1  Ul IP1 , JP1 ,K l+UI I ,  JP1 ,K  l-UI IP1 , J ,K l-U( I , J,K  I l/DYN 
DUDY =0 . 5* I DUDYN+DUDYS I 
D 2UD Y 2 -  I DUDYN-DUDYS  l/OYJ 


DWDYS=0 .5*1 W(  I ,  J  ,KP1  >*Wl  I ,  J  ,K  l-WI  I ,  JMI  ,KP1  l-WI  I ,  JMI  ,K  I  l/DYS 
0WDYN=0 . 5*1 W< I , JP1 ,KP1  l+WI I , JP1  ,K  l-WI  I  ,J ,KP1  l-Wl  I ,  J  ,K  I  l/DYN 

dwdy=o.5*idkdyn+dkdysi 

02WCY2=  I  DW3YN-DWDYS  l/OYJ 
6C6  CONTINUE 

C  ***  CALCULATE  DU/DZ . D2U/0Z2  > DV/DZ  >  D2V/DZ2  > DW/DZ  AND  D2W/DZ2 


DWDZ=(WI  I  ,J,KP1  l-WI  I  > J »K  I  l/OZK 
DWOZF -0.5*IW("I,J,KP2  >-W(I,J,K  I  l/DZF 
DHDZB=0 . 5*1  HI  X  ,  J  ,KP1  l-WI  I ,  J  ,KM1 1  l/DZB 
D2HDZ2-I DWOZF-DHOZB  l/DZK 


DVDZB=0.5*IVII,JP1,K  I*  VI I  (J»K  l-Vl  I  ,JP1  ,KM1  l-VI  I ,  J.KMI  I  l/DZB 
DV0ZF=0 .5*1  VI I ,  JP1 ,KP1 l+VI I , J ,KP1  l-VI I ,  JP1  ,K  l-VI I , J ,K  I  l/DZF 
DVDZ=0 . 5*1 DVDZF ♦DVDZB I 


00093200 

00095300 

00093400 

00093500 

000°3600 

00093700 

00093800 

00093900 

00094000 

00094100 

00094200 

00094300 

00094400 

00094500 

00094600 

00094700 

00094800 

00094900 

00095000 

00095100 

00095200 

0009S300 

00095400 

00095500 

00095600 

00095700 

00095800 

00095900 

00096000 

00096100 

00096200 

00096300 

00096400 

00096500 

0C096600 

00096700 

00096800 

0009b900 

00097000 

00097100 

00097200 

00097300 

00097400 

00097500 

00097600 

00097700 

00007800 

00097900 

00098000 

00098100 

00098200 

00098300 

00098400 

00098500 

00098600 


j 
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D2VDZ2=  l OVDZF-DVOZB )/OZK 


0UDZB=0 . S*(  U(  IP1 , J  ,K  >+U(  I ,  J  ,K  >-U<  XP1 ,  J  ,KM1  1-W(  I  ,J  ,KM1 )  )/DZB 
DUDZFi0.5»(U(IPl,J,KPl  I+U(X,J,KP1 I-U(IP1,J,K  )-U(  I , J >K >  )/DZF 
DUDZ  =  0 . 5*1  DUDZF +OUDZB  ) 

D2U0Z2=  (  DUDZF -DUDZB )/DZK 

DRDX=(  I R( IP1 ,  J,K  )-REQ(  IP1 , J ,K ) )-( R«  IM1  ,  J,K  )-REQ(  IM1, J,K ) ) )/ 

I  I DXE+DXW ) 

OROY=(  (  R(  I ,  JP1  ,K  )-REQ(  I ,  JP1  ,K  ))-(  R1 1 ,  JM1  ,K  )-REt>I  I ,  JM1  ,K  ) ) )/ 
t  ( DYN+DYS  ) 

DRDZ-I  (Rl  I  ,J,KPl)-REQ(I,J,KPin-(R(I,J,KHl  >-REQ(  I  ) ) )/ 

&  (DZF+DZB) 

DRDGA-SINI ZC( K  )  )*l SIN( XCI I )  )*DRDY+COSt XC  ( I )  )*DRDX  ) 

a  ♦cos<zcuu)«ordz 

C  ***  CALCULATE  RICHARDSON  NUhBER 

STRAIN=DUDY**2+DVDX**2+DW0X**2+DVDZ**2+DW0Y**2+DUDZ**2 
DDOl  =  SQRT(DUDY*DUDY+DUDX*OUDX+DUOZ*DUDZ+DVDY*DVDY+DVDX*DVDX+ 
t  0V0Z*DVD2+DWDX*DHDX+DWDY*DWDY+0WDZ*DHDZ ) 

IF( DD02.EQ. 0 .  )GO  TO  600 

C  ***  CALCULATE  TURBULENT  LENGTH  SCALE  SMPP(I,J) 

SMP125=SQRT(  ( ( U(  IP1 ,  J,K  >+U<  I , J ,K  )  1*0.5  )**2+(  { V<  I , JP1  ,K  >+V<  I ,  J,K 
t  0.5  1**2+ <  <  HI  I  ,J,KP1  l+NI  I >J>K  )  )*0.5)**2  1/DD02 
SMPP12=DD02  /SORT I D2U0X2*D2UDX2+D2UDY2*D2UDY2 
&  +02UDZ2*D2UDZ2+02V0X2*D2VCX2+02V0Y2*D2VDY2+D2V0Z2*D2VDZ2+ 
i  DZWDZ2*D2W0Z2+D2H0X2*D2HDX2+D2WDY2*02WDY2 ) 

SMPPI I , J ,K  )=CNT*l SMP123+SMPP12 I* .5 
RI(  I , J ,K l=-BUOY*DRDGi/(  R(  I ,J,K  )*STRAIN  ) 

ABRIPR=ABTURB+RI( I ,J,K  J/PRT 
IF I  ABP.IPR  .LT.  0.  )  GO  TO  600 
IFIABRIPR  .EQ.  0.)  GO  TO  615 
GO  TO  610 

600  VIS1 1 » J  »K )=VISL 
GO  TO  611 

615  VIS1 1 > J  >K  l=VISMAX 
GO  TO  611 

610  VIS(  I ,  J  ,K  l=VISL  +R(  I ,  J  ,K  )*SMPP<  I ,  J  ,K  )*SMPP<  I ,  J  >K  >*SQRTI  STRAIN )/ 

i  <BTURB*ABRIPR I 

IFIVISlI,J,KJ  .GT.  VISMAX)  VISI I  , J ,K  )=VISMAX 

611  CONTINUE 


DO  110  1-1 >NIP1 
DO  110  J=1,NJP1 
VIS(I,J,NKP1  >=VIS(I,J,NK) 
VISII.J.I  )=VIS(I,J,2  ) 
110  CONTINUE 

DO  120  J=1,NJP1 
DO  120  K=1,NKP1 


00098700 

00098800 

00098900 

00099000 

0009<»100 

000°9200 

00099500 

00099400 

00099500 

00099600 

00099700 

00099800 

00099900 

00100000 

00100100 

00100200 

00100500 

00100400 

00100500 

00100600 

00100700 

00100800 

00100900 

00101000 

00101100 

00101200 

n*ooioi50o 

00101400 

00101500 

OOlOlbOO 

00101700 

00101800 

00101900 

00102000 

00102100 

00102200 

00102500 

00102400 

00102500 

00102600 

00102700 

00102800 

00102900 

00105000 

00105100 

00105200 

00103500 

00105400 

00105500 

00103600 

00101700 

00105800 

00103900 

00104000 

00104100 
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o  u 


VIS(NIP1,J,K  )=VIS<  2,J,K  I 
Visa  ,J,K)=VIS(NI,J,K) 
120  CONTINUE 


00  130  K=1,NKP1 

00  130  I=1,NIP1 

VIS(  I ,NJP1 ,K )=VIS( I ,NJ,K ) 

Visa, 2  »K  )=VIS(  1,3  ,K) 

visa,i  ,k)*visii,2 

130  CONTINUE 


»K ) 


DO  135  K=l,16 
KK=NKP1-K 
DO  135  1=1 ,NIP1 
DO  135  J=1 >NJP1 
VISa,J,KK)=VIS<I,J,K) 
135  CONTINUE 


DO  140  1=1 ,N1P1 
DO  140  J=1,NJP1 
DO  140  K=1,NKP1 
IF  (NOO(I,J,K  I.EQ.l  I  GOTO  140 
CONDI  I  ,J,K  )=VIS(  I  ,J  ,K  l/PRT 
140  CONTINUE 


RETURN 

END 


SUBROUTINE  CALT 


C  *** 


C0MM0N/R4/XC ( 93  I ,  YC(  93  )  ,2C( 93  I  ,XS( “3  I  ,YS( “3  )  ,ZSI 93 ) , 

&  DXXCl  93  1  ,DYYC<  93  1 ,0ZZC( 93  )  ,DXXS( 93  )  .DYYSl 93 ) .DZZSI  93 ) 

COMMON/BL1/OX.DY  ,DZ,VOL,DTIME  »V0LDT ,TH0T  ,TC00l ,PI  ,Q,*)R 
COMMON/BL  7/NI  ,NIP1  ,NIM1,NJ  ,NJP1  ,NJM1  ,NK  ,NKP1  ,NKM1 
S  ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 .NAM1 ,N3 ,NBP1 ,N5M1 ,KRUN ,NCHIP ,NJRA ,NWRP 
COMNON/BL12/  NWRITE ,NTAPE .NTMAXO .NTREAL , TINE ,SORSUM, ITER 
COMMON/BL14/HCOEF  ,TINF  ,CNT ,  ABTURB  ,BTURB  ,VISL  .VISMAX  .GCOP.RT  ,PM1 .PM200107400 
CONMON/BLlb/  CONST1  ,C0NST2  .C0NST3  .CONST 4  .CONST 6  .NT  ,U0  ,H  ,UGRT  ,BUOY  ,00107500 
*  CPO  ,PRT  .CONDO  .VISO.RHOO.HR  ,TR  ,TA  .DTEMP  .TKP.ITE  .TTAPE  ,TMAX  ,GC  , RAIR00107600 


00104200 
00104300 
00104400 
00104500 
00104400 
00104  700 
00104800 
00104810 
00104900 
00105000 
00105100 
00105110 
00105120 
00105130 
00105140 
00105150 
00105160 
00105170 
00105200 
00105300 
00105400 
00105500 
00105600 
00105700 
00105800 
00105400 
00106000 
00106100 
00106200 
00106300 
00106400 
00106500 
00106600 
00106700 
00106800 
00106900 
00107000 
00107100 
00107200 
00107300 


COH!'.ON/Bl.22/ICHPB(  10  I.NCHPII  10  l.JCHPBI  10  I.NCHPJI  10  t.KCHPBl  10  ), 

S  NCHPKI 10  I  ,TCHP( 10  I  ,CPDI 10  )  .CONSI 10  )  ,WF AMI  10  ) 

COMMON/B131/  TOD( 22 , 16 ,32  I  ,ROO( 22 ,16 , 32  > ,PODl  22,16,32) 
l  ,COD<  2 2,16,32 ),UOD(  22 , 16 , 32  I , VOOl 22, 16 ,32 ) .NODI  22 ,16 ,32 ) 
COMKON/BL32/  T<  22,16,32  I, R( 22,16,32  ), PI  22,16,32) 
t  ,C( 22,16,32  ),U( 22,16,32  I, VI 22,16,32  >,H!  22,16,32) 

COMMON/BL33/  TPDI  22 ,16 ,32  )  ,RPD( 22 ,16 ,32  ) ,PPDI 22,16,32) 
l  ,CPD  (22,16, 32)  ,UPDt  22,16,32) ,VPDI 22,16,32) >HPD( 22,16,32 ) 

C0MM0N/BL34/  HEIGHT! 22 , 16 ,32 ) ,REQ(  22,16,32), 

S  SMP( 22,16,32  ),SMPP( 22 ,16 ,32 ) ,PP(  22,16,32), 

«  0U( 22,16,32  ),0V( 22, 16,32 ),0W(  22,16,32) 

COMMON/BL36/API 22 , 16 ,32  ) , AE ( 22 ,16 ,32  ) , AKl 22,16,32 ) ,AN(  22,16,32 ), 


00107700 

00107800 

00107900 

00108000 

00108100 

00108200 

00108300 

00108400 

00108500 

00108600 

00108700 

00108800 
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c  *** 


c 


c  *** 


*  AS1  22,16,32  I, AF<  22 ,16, 32  i  ,AB) 22, lb, 32  ), 

*  SPI 22,16,32 )>SU(  22,16,32  >,RI1 22,16,32  ) 

C0W10N/BL37/VIS( 22 ,1b, 32  I  ,CONO)  22 ,1b, 32  )  ,NOD( 22 ,1b, 32  )  >RHALL( 57° ) 

»  »CPM(  22,16,32 )  >KSZ(  3,2  i  ,NHSZ(  22,16,32)  >RES0Rt1<  93  ) 

CALCULATE  COEFFICIENTS 

DO  100  K*2,NK 
KP2=K*2 
KPl=tUl 
Kni-K-i 

KM2=K-2 

DO  100  J=2,NJ 

JP2-J+2 

JP1=J+1 

JM1-J-1 

JM2-J-Z 

DO  100  I=2,NI 

IP2=I»2 

IPl*Ibl 

IM1=I-1 

IM2=I-2 

IF  (I.E0.2)  IM2=NIM1 
IF  II.EO.NI)  IP2=3 

CENTRAL  LENGTH  OF  THE  TEMPERTURE  CONTROL  VOLUME 

DXP1=XL<IP1,J,K,0,0) 

DXI  =XL(I  ,J,K,0,0) 

DXM1=XL( IM1 , J ,K  >0  > 0 ) 

DYP1=YLI I,JP1,K>0,0) 

DYJ  =YL(  I  >  J  ,K,0,0  1 
DYM1=YL<I,JM1,K,0,0) 

CZPlaZH  I ,  J  ,KP1 ,0,0) 

DZK  *ZL(  I  >  J  ,K  ,0,0) 

DZM1=ZL( I , J,KM1 ,0 ,0 ) 

SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

DXN=XL( I ,JP1 ,K ,0,2 ) 

DXDaXUI,J  ,K,0,2 ) 

DXF=XL(  I  ,J  ,KP1 ,0,3) 

0X3aXL(I,J,K  ,0,3) 

DYFaYL( I ,J,KP1,0 ,3 ) 

DYBaYLI I  ,J,K  ,0,3) 

DYE=YL(IP1,J,K,0,1) 

0YHaYL(I  ,  J  ,K  ,0 ,1 ) 

DZEaZL< IP1,J,K,0,1) 

DZHaZL(  I  ,  J  ,K  ,0 ,1 ) 

DZN=ZL(  I,JP1,K,0,2) 

DZSaZL(I,J  ,K ,0,2  ) 


00108900 

00109000 

00109100 

00109200 

00)09300 

00109*00 

00109500 

00109600 

00109700 

00109800 

00109900 

00110000 

00110100 

00110200 

00110300 

00110900 

00110500 

00110600 

00110700 

00110800 

00110900 

00111000 

00111100 

00111200 

00111300 

00111400 

00111500 

00111600 

00111700 

00111800 

00111900 

00112000 

00112100 

00112200 

00112300 

00112400 

00112500 

00112600 

00112700 

00112800 

00112900 

00113000 

00113100 

00113200 

00113300 

00113400 

00111500 

00113600 

00US700 

00113800 

00113900 

00114000 

00114100 

00114200 

00114300 
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C  «H*« 


i 


C  «w 


CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME  FOR  T 

DXEE*XLIIP2,J,K,0,lt 
DXE  =XLIIP1,J,K,0,1) 

DXW  *XL( I  , J  »K ,0 , 1  ) 

DXNW=XL ( XM1 , J ,K ,0 , 1  ) 

0YNN*YL(I,JP2,K,0,2) 

DYN  *YLII,JP1,K,0,2) 

DYS  *YL( I >J  »K>0,2  ) 

DYSS=YL1  I  ,JM1,K,0 ,2  ) 

0ZFF*ZL<I,J,KP2,0,3) 

D2F  =ZL( I ,  J  ,KP1 ,0  >3 ) 

D2B  =ZL(  I >  J,K  ,0.3) 

DZBB=ZL 1 1 ,  J ,KM1 ,0,3) 

DEFINE  THE  AREA  OF  THE  CONTROL  VOLUME 

DXYF*DXF*DYF 

DXYB=DXB*DYB 

DYZE-DYE*DZE 

DYZW=DYH*DZW 

CZXN=DZN*0.XN 

DZXS=0ZS«DXS 

VOL=0XI*DYJ*DZK 
VOLDT  =VOL/DTIME 

ZXOYN=OZXN/DYN 
2XOYS=D2XS/OYS 
XYOZF  =DXYF/DZF 
XYOZB=DXYE/OZB 
YZOXE=OYZE/DXE 
YZOXW=OYZW/DXH 

GN=t  Rt  I ,  J  ,K  >*DYP1*RI  I ,  JP1  ,K  l*DYJ  )/( 0YP1+DYJ  ) 

GS=I  R(  I ,  J  >K  l*DYMl*Rl  I  ,JM1,K  l*DYJ  )/(DYMl*DYJ  ) 

GE  =  <RII,J,K  I*DXP1*R(IP1,J,K  l«DXI  1/lDXPHDXI  ) 

GW=IRII,J,K  )*DXMl*Ri  IM1  >J  ,K  )*DXI  )/IDXm+DXI  ) 

GF  =  IR(  I  ,J,K  I*CZP1+RI  I  ,J,KP1  l»CZK  )/l  0ZP1+DZK. ) 

G5=(  R(  I ,J,K  )*DZM1*RII»J,KM1  )*>DZK  )/IDZMl+DZK  ) 

CN=GN*V<  I ,  JPI  >K  l*OZXN 
CS=GS*V( I ,J  ,K  )«02XS 
CE=GEHJ<  IP1,J,K)«DYZE 
CW=GH*U(  I  ,J,KI*DYZW 
CF-GF«H(  I  ,J  ,KP1  >*DXYF 
CB=G8*W(I,J,K  )»OXYB 


C0NDN=1 ./( I 1 ./CONDI  I , J ,K  )*DYJ*1 ./CONDI  I , JPI  ,K  )#DYP1  )/l DYP1«DYJ  ) ) 
CONDS=l./( 1 1. /CONDI  I ,J,K  l*OYJ*l ./CONDI  I ,JMI,K  )«DYM1  l/IDYMl+DYJ  1 1 
CONDE=l./(  1 1. /CONDI  I ,J,K >«DXI  +  1. /CONDI  IP! ,J,K  )«DXP1  )/( DXP1+DXI ) ) 


00114400 
00114500 
00114600 
00114700 
00114800 
00114900 
00115000 
00115100 
00115200 
00115300 
00115400 
00115500 
00115600 
00115700 
00115800 
00115900 
00116000 
00116100 
00116200 
00116300 
00116400 
00116500 
00116600 
00116700 
00116800 
00116900 
00117000 
00117100 
00117200 
00117300 
00117400 
00117500 
00117600 
00117700 
00117800 
0011790 0 
00118000 
0C118100 
00118200 
C0118300 
00118*400 
00118500 
OCII60OO 
00118700 
00116800 
00118900 
00119000 
0011°100 
00119200 
00119300 
00119400 
00119500 
00119600 
00119700 
00119800 
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C0NDW*1./I  1 1. /CONDI  I.J.K  1*0X1 *1 ./CONDI  IMl.J.K  I*DXM1  I/IDXMIOXI  )  ) 
CONDF*l./<  1 1. /CONDI  I.J.K  >*OZK.  1 .  /CONDI  X  ,  J  ,KP1  >*DZP1  )/l DZP1+0ZK  il 
CONDB-1 ./I ( 1 . /CONDI  I , J ,K  )*DZK*1 . /CONDI  I , J ,KM1  )*0ZM1 )/l DZM1+DZX  ) ) 


CONON1=ZXOYN*CONDN 
C0NDS1=ZX0YS*C0N0S 
C0NDE1SYZ0XE*C0NDE 
CONDI  (1  *YZOXW*CONDH 
C0NDF1*XY0ZF«C0N0F 
C0NCB1=XY0ZB«C0N0B 


CEP=I ABSICE  )+CE  )*DXPl«DXI/t  DXE*(  DXE+DXH  )  )/8. 

CEM=!  ABSICE  )-CE  >*DXPl*DXI/t  DXE*l  DXE*DXEE  )  )/8. 

CWP=I  ABSI CW  l+CW  I*DXM1*0XI/I  DXW*(  DXH+DXHH  )  )/8. 

CHM-I ABSI CW l-CH )«DXM1*DXI/I DXH*I DXW+OXE  ) 1/8. 

CNP=I  ABSI  CN  >»CN  )*0YP1*0Y J/l  DYN*(  OYN+OYS  I  )/8 . 

CNM=t  ABSI CN l-CN )«DYP1*DYJ/I OYN*l OYN+OYNN >  1/8. 

CSP=I  ABSI  CS  HCS  I*0YM1*0YJ/I  OYS*l  DYS+OYSS  )  1/8. 

CSMs| ABSI CS )-CS )*DYMl*OYJ/t DYS*( DYSOYN  )  )/8 . 

CFP=<  ABSICF  l+CF  l*OZPl*DZK/< DZF*t DZF+DZB  I  1/8. 

CFH=<  ABSI  CF  )-CF  >*OZPl*CZK/l  DZF*I  OZF+DZFF  I  1/8. 

CBP-I  ABSI  CB  )+CB  l*DZMl*DZK/(  DZB*I  DZB+DZBB  )  )/8 . 

CBM=l ABSI CB l-CB )*DZMl*DZK/l OZB*( DZB+OZF  ) )/8. 

AE 1 1 , J ,K I*- . 5*OXI/OXE«CE «CEP4CEM* 1 1 . ♦DXE/DXEE  I ♦CWM*OXK/OXE 
AMI  I  ,J,K  1=  . 5*0X1 /DXW*CH *CHM+CHP* 1 1.  ♦OXW/OXWW  >*CEP*DXE/DXH 
AN  I  I.J.K  )=-.5«DYJ/DYN*CN»CNP+C»!M*(  1.  ♦DYN/DYKN  HCSH*OYS/DYN 
ASI I  >J»K  Is  .5*DYJ/DYS*CS*CSM+CSP*(  1 .  ♦OYS/DYSS  l+CNP^YN/DYS 
AFI I.J.K  l=-.5*DZK/DZF*CF+CFP>CFM*( X. ♦OZF/OZFF (♦CBM*DZB/DZF 
A3 1 I  ,J  ,K  )  =  .5*DZK/0ZB*CB*CBM+CBP*< 1. ♦DZB/DZBB  H-CFP*DZF/DZB 

801  AEE=-CEM*OXE/OXEE 
AEER=AEE*TPD I IP2 , J  ,K  )«CPM< IP2 ,J,K  I 

802  CONTINUE 

803  AWH=-CNP*0XW/DX>*1 
AMWR=AWW*TPD l IM2 , J ,K l*CPM( IM2 ,J,K) 

604  CONTINUE 

IF  I J.LT.NJ )  GOTO  805 
ANN-0 . 

ANNR-0 . 

GOTO  806 

805  ANN*-CNM*OYN/DYNN 
ANNR=ANN*TPD< I .JP2.K l*CPMI 1 ,JP2 ,K ) 

806  CONTINUE 

IF  IJ.GT.2)  GOTO  807 
ASS=0 . 

AS3R=0. 

GOTO  808 

807  ASS*-CSP«DYS/DYSS 


00119900 

00120000 

00120100 

00120200 

00120300 

00120400 

00120500 

0C120600 

00120700 

00120800 

00120900 

00123110 

00123120 

00123130 

00123140 

00123150 

00123160 

00123170 

00123180 

00123190 

00123191 

00123192 

00123193 

00123194 

00123195 

00123196 

00123197 

00123198 

00123199 

00123200 

00123201 

00123202 

00123203 

00123204 

00123210 

00123300 

00123400 

00123500 

00123600 

00123700 

00123800 

00123900 

00124000 

00124100 

00124200 

00124300 

00124400 

00124500 

00124600 

00124700 

00124800 

00124900 

00125000 

00125100 

00125200 


I 
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A3SR=ASS*TPD( I » JM2 ,K  t*CPM( I , JM2 ,K  ) 
808  CONTINUE 


809 

810 


IF  IK.IT.NK)  GOTO  809 
AFF=0 . 

AFFR=0. 

GOTO  8X0 

AFF*-CFM«DZF/DZFF 

AFFR*AFF*TPD(  I , J.KP2 )*CPM( I , J,KP2 ) 
CONTINUE 


811 

812 


IF  (K.GT.2)  GOTO  811 
ABB=0. 

ABBR-0 . 

GOTO  812 

ABB=-CBP«DZB/DZBB 

ABBR=ABB*TPDt I » J >KM2  )*CPM( I , J ,KMZ  ) 

CONTINUE 


c  tttimmttttmtttnttttFmtmmnnimmnnim 

C  *8*#83S8#3*8SS3«*#St«#S#8#S*8«S#S338#ft»8S*8*#**f***t#* 

C  **«  MODIFICATION  FOR  OECK.  BOUNDARIES 

900  CONTINUE 

IF  ( NOD ( INI ,  J  »K  I .  E<3 . 0  )  GOTO  901 
ANW=0 . 0 
AHWR=0 . 0 

901  CONTINUE 

IF  (NOO(IPI,J,K).EQ.O)  GOTO  902 

AEE=0.0 

AEER=0 . 0 

902  CONTINUE 

IF  ( NODI  I >  JM1 >K  ) .  EQ .  0  )  SOTO  903 

ASS=0.0 

ASSR=0.0 

903  CONTINUE 

IF  I  NODI  I > JP1 >K ) . EQ . 0  )  GOTO  904 
AW=0 . 0 
ANNR=0 . 0 

904  CONTINUE 

Ic  I  NODI  I iJ«KHl ) . EQ.O  )  GOTO  905 

ABB-0 . 0 

ABBR-u.O 

905  CONTINUE 

IF  ( NODI  I >J  ,KP1 ) . EQ. 0  )  GOTO  906 

AFF =0 . 0 

AFFR=0.0 


00125300 

00125400 

00125500 

00125600 

00125700 

00125800 

00125900 

00126000 

00126100 

00126200 

00126300 

00126400 

00126500 

00126600 

00126700 

00126800 

00126900 

00127000 

00127100 

00127200 

00127300 

00127400 

00127500 

00127600 

00127700 

00127800 

00127900 

00128000 

00128100 

00128200 

00128300 

00128400 

00128500 

00128600 

00128700 

00128800 

00128900 

00129000 

00129100 

00129200 

00129300 

00129400 

00129500 

00129600 

00129700 

00129800 

00129900 

00130000 

00130100 

00130200 

00130300 

00130400 

00130500 

00130600 

00130700 


I 


I 


144 


I 


906  CONTINUE 

c  tmttttmmmtnnttitttttmtitititmmmmntm 

API  I  ,J,K  )=l  AE1 1  >J,K  UAWl  I  ,J,K  l+ANI I .  J,K  HAS!  I  ,J,K  I 
l  ♦AFII.J.K  l+ABII.J.K  l♦AEE♦AWW♦iNN♦ASS♦AFF♦ABB>*CPh(I, 

<  +C0NDE 1 +CONDW1 +CONDN1 +CONDS1 +CONDF 1 ♦CONDB1 

AE(  I  >J  >K  »=AE ( I , J ,K  M»CPMI IP1 , J ,K  l+CONDE  1 
AWI I  r  J >K  )=AW(  I  ,J ,K  )*CPMI  IM1 » J »K  I+C0NDW1 
AN(I,J,K  l=ANl  X  vJ  fK  >*CPM<  I  ,JP1,K  HCONDN1 
AS(  I ,  J,K  l=AS<  I ,  J,K  J«CPM(  I ,  JM1  ,K  WC0NDS1 
AFII.J.K  )=AFl  I  >J,K  t«CPM<  I .  J  >KP1  I*C0NDF1 
ABI I .  J  »K  )-ABl I >  J  »K  )*CPM( I . J  >KM1  UC0N0B1 

SPI I ,  J.K  U-ROOI I  ,J,K  >«VOLDT«CPMt  I  >J>K  ) 

SOI  I  ,J,K  1=  ROOf  I , J.K  )«VOI.DT*rOO(  I ,  J.K  >*CPMI  I  .J.K  ) 

SUI I , J ,K  >*SUI I , J ,K  )+AEER+AWWR*ANNR+ ASSR +AFFR+ABBR 
100  CONTINUE 

C  ***  TAKE  CARE  OF  B.C.  THRU  AN.AS.AE ,AW,AF,AB,SP  AND  SU 

C  **«  RADIUS  DIRECTION 

DO  500  I=2,NI 
DO  500  K-2  >NK 

SP<I,2,K)=SPII,2,K)*AS(I,2,K) 

CC  SPU,2,K)=SPlI,2,K)-ASlI,2,K) 

CC  SU(I,2,K)=SU<I,2,KI*2.0*ASII,2,KI*TPDII,1,K) 

SPI  I  ,NJ  ,K  l=SPl  I  ,NJ,K  J-ANI I ,NJ,K ) 

SUI  I ,NJ ,K l=SUI  I .NJ.K )*Z. «TPD(  I ,NJP1 ,K  )«AN( I ,NJ,K ) 

AS(I,2,K)sO. 

ANII,NJ,K)=0. 

500  CONTINUE 


C  **» 


CYLI'"  CONDITIONS 


DO  600  J=2,NJ 
DO  600  K=2,NK 

SUI  2  ,J,KI=SU(2  ,J,KMAW(2  ,J,K)*Ttl  .J.K) 
SUI  NI  ,J  ,K  l=SU!  NI ,  J  ,K  UAE  l  NI ,  J  ,K  )«T(  NIP1 , J .K  ) 
ANI  2  ,J,K  1=0.0 
AEI NI .J.K  )s0 . 0 
600  CONTINUE 

C  ***  END  OF  SPHERE 

DO  700  I*2,NI 
DO  700  J=2,NJ 

SPI  I,  J,  2  l=SP<I,J,2  HABI I  ,  J.Z  ) 

SPI I > J  »NK  l=SPl  I  .  J  >NK  )+AFl  I ,  J  ,NK ) 

ABII,J,2)*0. 

AFl  I .J.NK  )=0. 

700  CONTINUE 


00130800 
00130900 
00131000 
00131100 
00131200 
00131300 
,K  100131400 
00131500 
00131600 
00131700 
00131800 
00131900 
00132000 
00132100 
00132200 
00132300 
00132400 
00132500 
00132600 
00132700 
00132800 
00132900 
00133000 
00133100 
00133200 
00133300 
00133400 
00133500 
00133600 
00133700 
00133800 
0013S900 
00134000 
00134100 
00134200 
00134300 
0C134400 
00134500 
00134600 
001S4700 
00134800 
00134900 
00135000 
00135100 
00135200 
00135300 
00135400 
00135500 
00135600 
00135700 
00135800 
00135900 
00136000 
09136100 
00136200 


I 


i 
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ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 


DO  300  K=2 ,NX 
DO  300  J=2,NJ 
DO  300  I=2,NI 

API  I , J  ,K  )*APl  I , J ,K  )-SP(  I ,  J,K ) 
300  CONTINUE 


C  ***  VOLUME  HEAT  SOURCE  INPUT 

VOLTsO.O 
DO  113  1=2, NI 
00  113  J=2,NJ 
DO  113  K=l6 ,17 

IF  I NHSZI I ,J ,K ) . EQ.O  )  60T0  113 
DXI  =XL(I  ,J,K,0,0) 

OYJ  =Yl.(  I  »J  ,K,0,0  ) 

D2K  =ZLI  I » J,K  ,0,0) 
VOL=DXI*OYJ*DZK«H*H*H 
VOLT =VO'_T  *VOL 
113  CONTINUE 

DO  111  1=2 ,NI 
DO  111  J=2,NJ 
00  111  K=lb»17 

IF  I NHSZI I, J,K). EQ.O  I  GOTO  111 
OXI  =XL( I  ,J,K,0,0  ) 

OYJ  =YL( I ,J  ,K,0 ,0  ) 

DZK  =ZLI  I , J ,K  ,0,0) 

QQQ=Q*H/< UO*CPO*RHOO*TA ) 
VOL=OXI*DYJ*DZK 

SUII.J.K  l=SU(I,J,K)*VOL*QQQ/VOLT 
111  CONTINUE 


C  ***  RADIATION  INTO  THE  WALL 

DO  310  K=3,NKM1 

CO  310  1=2, NI 

DXN  =XL( I  ,NJRA ,K  ,0 , 2 ) 

DZN  =ZL( I .NJRA.K  ,0,2) 

0ZXN=0ZN*0XN 

II  =  (K-3  )*(  NI-1  1*1-1 

SUI I .NJRA.K )=SU(  I , NJRA.K )-RWALL( II )*OZXN 
310  CONTINUE 

C  ***  END  OF  RADIATION 

C  ***  SOLVE  FOR  T 

CALL  TRIO  I  2  >2 ,2  >NI  ,NJ,)J<  ,T  ) 


00136300 

00136400 

00136500 

00136600 

00136700 

00136800 

00136900 

00137000 

00137100 

00137200 

00137300 

00137400 

00137500 

00137600 

00137700 

00137800 

00137900 

00138000 

00138100 

00138200 

00138300 

00138400 

00138500 

00138600 

00138700 

00138800 

00138900 

00139000 

00139100 

00139200 

00139300 

00139400 

00139500 

00139600 

00139700 

00139800 

00139900 

00140000 

00140100 

00140200 

00140300 

00140400 

00140500 

00140501 

00140503 

00140504 

00140600 

00140700 

00140800 

00140900 

00141000 

00141100 

00141200 

00141300 

00141400 
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C  ****  RESET  TEMPERATURE  AT  R«0.0  AND  END  OF  SPHERE 

DO  81  K  =  1 ,NKP1 

AVT =0 . 0 

00  82  I=2,NI 

AVT=AVT ♦  t  Tl  1 , 2  ,K  l/NIMl ) 

82  CONTINUE 

DO  83  I=1,NIP1 
TII,1.K»*AVT 

83  CONTINUE 
81  CONTINUE 

C 

DO  74  I=1,NIP1 
00  74  J=1,NJP1 
Tl  I  >J  ,1  )=Tl  I  >J  >2 ) 

T(I,J,NKP1)=TII,J,NK) 

74  CONTINUE 

C  ***  FOR  SURFACE  HEAT  EXCHANGE  NITH  SURROUNDING 

DO  84  1=2, NI 
DO  84  K=2,NK 
DYJ=YLt I ,NJ ,K ,0 ,0  ) 

Tl  I ,NJP1 ,K )  =  (  2 . 0*C0ND<  I ,NJ ,K )*T(  I ,NJ ,K )/DYJ+HCOEF*TINF  )/ 
l  ( HCOEF  +  2 . 0*C0ND( I ,NJ »K  J/DYJ ) 

84  CONTINUE 


C  «**  FOR  CYLIC  CONDITION 

DO  80  J=1,NJP1 
DO  60  K=1  .Nt.Pl 
T(1,J,KI=TINI,J,KI 
T(NIP1,J,K)=T<2,J,K) 

80  CONTINUE 

RETURN 

END 


***  «**#******■*•»***************«-***««•**»»»****-************»***** 

SUBROUTINE  CALC 

C0MI10N/R4/XCI  93  )  ,YCl  93  J  ,2Cl  93  )  ,XSl  93  1  ,YSl  93  )  ,2Sl  *3  ) , 

A  DXXCl  93 ) .OYYCl  93 ) ,D22C(  93 ) ,DXXSl 93  )  ,DYYSl 93  )  ,D22Sl 93  ) 

COMMON/BLl/OX ,DY ,D2 , VOL ,DTIME  >VOLDT ,THOT ,TCOOL ,PI ,Q »QR 
C0MM0N/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1 
*  »NIP2  ,NJP2  ,NKP2 ,NA ,NAP1  ,NAM1  ,N3  ,NBP1  ,NBM1  ,KRUN,NCHIP ,NJRA,WRP 
C0MM0N/BL12/  NWRITE  »NTAPE ,NTMAXO ,NTREAL ,TIME ,S0RSUM,ITER 
C0MMGN/BL14/HC0EF  >TINF  ,CNT ,  ABTURB  ,BTURB ,  VISL  ,VISMAX,QCORRT  »PM1  ,PM200146900 
C0KM0N/BL16/  C0NST1 .CONST 2 ,C0NST3 ,C0NST4 .CONST 6 .NT ,U0 ,H ,UGRT .BUOY ,00147000 
t  CPO.PRT, CONDO, VISO.RHOO, HR, TR ,TA .DTEMP .THRITE .TTAPE ,TMAX ,GC , RAIR00147100 


00141500 

00141600 

00141700 

OOIhISOO 

00141000 

00142000 

00142100 

00142200 

00142300 

00142400 

00142500 

00142600 

00142700 

00142800 

00142900 

00143000 

00143100 

00143200 

00143300 

00143400 

00143500 

00143600 

00143700 

00143800 

00143900 

00144000 

00144300 

00144400 

00144500 

00144600 

00144700 

00144800 

00144900 

00145000 

00145100 

00145200 

00145300 

00145400 

00145500 

00145600 

00145700 

00145800 

00145900 

00146000 

00146100 

00146200 

00146300 

00146400 

00146500 

00146600 

00146700 

00146800 


COMMON/BL22/ICHPBI 10  I  .NCHPIl 10 ) .JCHPBt 10  > ,NCHPJ( 10  I  ,KCHPB< 10  ) ,  00147200 

NCHPKI 10  I  ,TCHPl 10  )  ,CPS( 10  1  .CONSl 10  I  »WFAN( 10 )  00147300 

CC»MON/BL31/  TODt  22,16,32) »ROD( 22  > lb >32 ) ,PODI  22  >16  >32 )  00147400 

,C0D1 22,16,32  ),UODl 22 ,14,32  l  ,VOO( 22 , 16 ,32  I  ,HOD< 22 ,14.32  )  00147500 

COMMON/BLS2/  Tl  22 ,16 ,32 ) ,RI  22 ,lo ,32  )  ,P1 22 >16 >32 >  00147600 

>CI 22,16,32  I, U< 22.16,32  ). VI 22 , 16 ,32  I , HI  22 , 16 ,32  I  00147700 

COMMON/BL33/  TPDl 22 ,16 ,32  )  ,RP0t 22 ,lo ,32  1  .PPDI 22 ,1b ,32 I  00147800 

,CP0l 22,16,32  >,UP0< 22,16,32  I.VPOI 22 ,16,32  ),HPQ( 22,16 ,32  I  00147600 
COMMON/BL 34/  HEIGHT! 22 ,16,32 1 ,REQt  22,16,32),  00148000 

SMP1 22 ,16 ,32  )  ,SHPP! 22,16,32) ,PP<  22,16 ,32  1 ,  00148100 

OUI 22,16,32  I, DV( 22,16,32 ),0HI 22,16,32  I  00148200 

C0MM0N/BL36/AP! 22,16,32 )»A£<  22,16 ,32  ) ,AWI 22,16,32 ) , AN!  22,16,32 ),  00148300 

AS! 22,16,32  ),AF( 22,16,32  >,ABl 22,16,32),  00148400 

SP( 22,16,32 ),SU( 22,16,32 J.RII  22,16,321  00148500 

CQMMON/BL37/VIS! 22,16,32) , CONDI  22,16,32)  ,NOD( 22,16,32)  ,RHALL( 579 )  00148600 


C  *** 


C  *** 


1  ,CPH( 22,16,32  I.HS21 3,2  I.NHSZf 22,16,32 l.RESORM! 93 ) 

00148700 

C0HM0N/BL39/ALEH ,PCURV£ ,CONSRA ,PCURM1 , PSOUTH ,QCORR >PERROR 

00148800 

00146900 

CALCULATE  COEFFICIENTS 

00149000 

00149100 

DO  100  K=2 ,NK 

00149200 

KP2sK+2 

00149300 

KP1=K+1 

00149400 

KM1=K-1 

00149500 

KM2=K-2 

00149b00 

DO  100  J=2 ,NJ 

00149700 

JP2=J+2 

00149800 

JP1=J*1 

00149900 

JM1=J*1 

00150000 

JM2=J-2 

00150100 

DO  100  I=2,NI 

00150200 

IP2=I*2 

00150300 

IP1=I+1 

00150400 

IM1=I-1 

00150500 

IM2=I-2 

00150600 

IF  (I. EG. 2  1  IM2=NIM1 

00150700 

IF  (I.EQ.NI)  IP2=3 

00150800 

00150900 

CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

00151000 

00151100 

0XP1=XLIIP1,J,K,0,0) 

00151200 

DXI  =XLII  , J ,K ,0 ,0  ) 

00151300 

DXMl-XLI IK1 ,J,K,0,0 ) 

00151400 

00151500 

DYF1=YLII,JP1,K,0,0) 

00151600 

DYJ  =YLC I , J  ,K ,0 ,0  1 

00151700 

DYM1=YL< I , JM1 ,K ,0 ,0  ) 

00151800 

00151900 

D2P1*ZL(I,J,KP1,0,01 

00152000 

OZK  =ZL(I,J,K  ,0,0) 

00152100 

DZM1=2LII,J,KM1,0,0) 

00152200 

00152300 

SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

00152400 

00152500 

0XN=XL( I ,JP1»K ,0 ,2 ) 

00152600 
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c  *»* 


c  *•»» 


OXS*XL<I,J  ,K,0,2) 

00152700 

DXF=XLII,J,KP1,0,3) 

00152800 

DXB=XL(  I ,  J  ,K  ,0,5  1 

00152900 

00153000 

DYF=YLI I >J  »KP1 ,0,3) 

00153100 

DYB=YLII,J,K.  ,0,3) 

00153200 

DYE=YLI  IP1,J,K,0,1 ) 

00153300 

DYW=YL<  I  ,J,K,0,1I 

00153400 

00153500 

DZE =ZLI XP1 ,J,K ,0,1 ) 

00153600 

DZW=ZL(I  ,J,K ,0,1  ) 

00153700 

DZN=2Ll 1 , JP1,K ,0 ,2 ) 

00153800 

DZS=ZL(I,J  ,K ,0 , 2  ) 

00153900 

00154000 

CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME  FOR  T 

00154100 

00154200 

DXEE=XL<IP2,J,K,0,1) 

00154300 

DXE  =XLl  IP1,J,K,0,1) 

00154400 

DXH  *XLII  ,J ,K ,0 ,1 ) 

00154500 

DXHW=XLl IM1 ,  J  ,K  ,0 ,1 ) 

00154600 

00154700 

CYNN=YL( I ,JP2 ,K ,0 ,2  ) 

00154800 

DYN  -YL(I,JP1,K,0,2) 

00154900 

DYS  =YL(I,J  ,K  ,0,2  ) 

00155000 

DYSS=YL<I,JM1,K,0,2) 

00155100 

00155200 

D2FF-ZL( I ,J ,KP2 ,0 ,3 ) 

00155300 

D2F  -ZL( I ,J ,KP1 ,0 ,3 ) 

00155400 

DZB  «ZLI  I,J,K  ,0,3) 

00155500 

DZBB=ZLtI,J,KMl,0,3) 

00155600 

00155700 

DEFINE  THE  AREA  OF  THE  CONTROL  VOLUME 

00155800 

00155900 

DXYF=DXF*DYF 

00156000 

OXYB=DXB*DYB 

00156100 

OYZE=DYE*DZE 

00156200 

DY2W=DYWkD2W 

00156300 

OZXN=DZN*DXN 

00156400 

DZXS=DZ3*DXS 

00156500 

00156600 

V0L=DXI*DYJ*D2K 

0015o7D0 

VOLDT  =VOL/0TIME 

0D15oS00 

00156900 

ZXOYN=DZXN/DYN 

00157000 

ZXOYS =02X3/0 YS 

00157100 

XYOZF=DXYF/DZF 

00157200 

XY0Z3=CXYB/DZB 

00157300 

YZOXE=DYZE/DXE 

00157400 

YZOXW=DYZH/DXH 

00157500 

00157600 

GN=<  R(  I  ,J,K  )*0YP1*R(  I , JP1  ,K  t*DYJ  1/1  DYP1+DYJ  1 

00157700 

GS=(  R< 1 , J,K  »*DYM1+R< I , JM1 ,K )*DYJ )/( DYM1»DYJ  ) 

00157800 

GE  =  (R(I,J,KI*DXP1+R(IPI,J,K  l»DXI  I/IDXP1+DXI) 

00157900 

GW=(R(I,J,K  )*DXM1*RI  IM1 ,  J  »K  l*DXI  l/IDXMl  +  DXI  ) 

00158000 

GF=<  R<  I  ,J,K  )*DZP1+R<  I  ,J  ,KP1  )*0ZK  )/I  DZPltOZK  ) 

00158100 
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GBS(  R(  I , J  ,K  I«0ZM1+Rt  I ,  J  ,KM1  )«DZK  >/(  DZM1+DZK  ) 

CN=GN*V< I ,  JP1 ,K )*DZXN 
CS=GS*V< I , J  ,K 1«DZXS 
CE=GE*UI IP1,J,K  >*DYZE 
CH=GW*U<  I  , J  ,K  >*DYZW 
CF=GF*Hl  I ,  J  ,KP1  l*OXYF 
CB=G8*W(I,J,K  )*DXYB 


C0NDN=1 ./( (l./cmoi  I  ,J  ,K  1*DYJ*1. /CONDI  I ,  JP1,K  )*0YP1 )/(  DYP1+DYJ  ) ) 
CONOS-l ./( I  l./CONDI  I,J,K)*DYJU./C0ND1  I  ,JM1,K  I*DYM1  )/(  DYM1*DYJ)  ) 
CONDE=l./( ( 1. /CONDI  I ,J,K  l*DXI*l. /CONDI IP1,J,K  )*DXP1  I/I DXP1+DXI ) ) 
CONDH=l./(  (X./COND(I,J,K  l«DXI*l .  /CONDI  IM1  ,J,K  >*0XM1  )/l  DXM1+DXI ) ) 
CONDF  =  l./(  1 1. /CONDI I>J>K )*DZK+1 . /CONDI  I , J  ,KP1  I*DZP1  >/( DZP1+DZK )  I 
CONDB-1 •/(  1 1. /CONDI  I ,J,K l*DZK*l. /CONDI  I ,J,KM1  >*DZM1 l/IDZMl+DZK ) ) 

CONDNl=ZXOYN*CONDN*ALEW 
CONOS1=ZXOYS*CONOS*AL£W 
CONOE1=YZOXE*CONDE*ALEW 
CONOW1*YZOXK*CONDH*ALEW 
COND  F 1 sXYOZF*CONDF*ALEW 
CONDB1=XYOZB*CONDB*ALEH 


CEP=( ABSI CE  )+CE  l*DXPl*DXI/< DXE*I DXE *DXH  >)/8. 
CEM=(  ABSI CE  l-CE  )*0XP1«DXI/I  DXE*(  DXE+DXEE  )  1/8. 
Ch’P= I  ABSI  CW  1+CM  )*DXm*DXI/l  DXW*( DXW+DXWW  )  )/8. 
CWM=l ABSI CM l-CW  )*DXMl«DXI/f DXH*l  DXW*DXE  )  )/8. 

CNP=<  ABSI  CN l+CN l*DYPl«DYJ/<  DYN*<  DYN*DYS  )  )/8. 
CNM=(  ABSI  CN l-CN  l*DYPl*DYJ/<  0YN*1 DYN+DYNN )  1/8. 
CSP=<  ACSlCS  l+CS  l*DYMl*DYJ/IDYS«IDYS+DYSS)  )/8. 
CSM=< ABSI CS  l-CS  )*DYMl*DYJ/<  DYS* l DYS+DYN  ) 1/8. 

CFP=<  ABSI  CF  l+CF  l*DZPl*OZK/t  DZF*(  DZF+DZB  )  1/8. 
CFM=( ABSI CF  l-CF  I*DZP1*DZK/I  0ZF*<  D2F+OZFF ) 1/8. 
CBP-I  ABSI  CB  I+CB  i*CZMl-»DZK/(  DZB*(  OcB+OZBB  )  )/8. 
CBM=I  ABSI  CB  l-CE.  )*DZMl*DZK/<  DZB*(  DZB+DZF  )  1/8. 


AEI I,J,K  l  =  -.5»DXI/DXE^CE+CEP+CEM*l l.+DXE/DXEE  )+CWM*DXW/DXE 
AWI I,J,K  1=  . 5*DXI/DXH«CH+CWM+CKP*( 1 . + DXW/DXWH  ltCEP*DXE/DXW 
AN! I,J,K )  =  -.S*DYJ/DYN*CN»CNP+CNM*t  X. ♦DYN/DYNN HCSM*DYS/DYN 
ASI I , J ,K  1=  . S*DY J/OYS*CS+CSM*CSP»(  1 . +DYS/DYSS  l»CNP*DYN/DYS 
AF(I,J,K l=-.5*DZK/DZF*CF4CFP+CFM*l  1 . +DZF/DZFF  l+CBM*DZB/DZF 
ABI I > J >K  )=  ,5*DZK/DZB*CB4CBM  +  CBP*I l.+DZB/DZBB  )+CFP*DZF/DZB 


SOX  AEE=-CEM*DXE/DXEE 

AEER=AEE*CPDIIP2,J,K) 
802  CONTINUE 

80S  AWW=-CWP«DXW/DXWH 

AWWR=AMW*CPDIIM2,J,K) 
804  CONTINUE 


00X58200 

00X58S00 

00158400 

00158500 

00158t>00 

00158700 

00158800 

00158900 

00159000 

00159100 

00159200 

00159S00 

00159400 

00159500 

00159600 

00159700 

00159800 

00159900 

00160000 

00160100 

00160200 

001b0300 

00160400 

00162700 

00162800 

00162801 

00162802 

00162803 

00162804 

0016280E 

00162806 

00162807 

00162808 

00162809 

00162810 

00162811 

00162812 

00162813 

00162814 

001b2815 

00162816 

001b2817 

001b2818 

00162819 

001b2820 

00162821 

00162822 

00162823 

00162830 

00162900 

00163000 

00163100 

00163200 

00163300 

00163400 
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c 

c 

c 


IF  (J.LT.NJI  GOTO  805 

00163500 

00163600 

ANN=0 . 

001o3700 

ANNR=0 . 

00163800 

GOTO  806 

001b3900 

805  ANN=-CNM*DYN/DYNN 

0016H000 

ANNR=ANN*CP0( I j  JP2  >K  ) 

001e9l00 

806  CONTINUE 

00169200 

IF  (J.GT.2)  GOTO  807 

00164300 

00164400 

ASS=0. 

00164500 

ASSR=0. 

00164600 

GOTO  808 

00164700 

807  ASS--C5P*0YS/DYSS 

00164800 

ASSR=ASS«CPD( I >  JM2 ,K ) 

00164900 

808  CONTINUE 

00165000 

IF  (K.LT.NK  )  GOTO  809 

00165100 

00165200 

AFF=0 . 

00165300 

AFFR*0. 

00165400 

GOTO  810 

00165500 

809  AFF=-CFM*0ZF/DZFF 

00165600 

AFFR*AFF*CPD(I,J,KP2  ) 

00165700 

810  CONTINUE 

00165800 

IF  (K.GT.2)  GOTO  811 

00165900 

00166000 

ABB-0 . 

00166100 

ABBR-0. 

00166200 

GOTO  812 

00166300 

811  ABD=-CBP»DZB/DZ8B 

00166400 

ABBR=ABB*CPD(  I ,  J  ,KM2  t 

00166500 

812  CONTINUE 

001o6600 

00166700 

00166800 

00166900 

00167000 

«3«39«St««SS*t3S9S««ft**f 

00167100 

***  MODIFICATION  FOR  DECK  BOUNDARIES 

00167200 

900  CONTINUE 

00167300 

00167403 

IF  (  NOD!  IM1>J>K).EQ.0  )  GOTO  901 

00167530 

AWW=0 . 0 

00167600 

AWHR=0 . 0 

OOlo  7700 

901  continue 

0Clo7800 

001o7900 

IF  (NOD!  IPI,J,K  1.E9.0  )  GOTO  902 

00168000 

AEE^O.O 

OOI08IOO 

AEERz0 . 0 

00168200 

902  CONTINUE 

OOI08IOO 

00160400 

IF  ( NOD! I »JM1 .K  I.EQ.O  )  GOTO  905 

00166500 

ASS=0.0 

00168600 

ASSR=0.0 

00168700 

903  CONTINUE 

00168800 

00168900 
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IF  INOOII,JPl,K).EQ.O)  GOTO  904 
ANN =0.0 
ANNR=0 . 0 

904  CONTINUE 

IF  I  NODI  I > J ,KM1 ) . EQ . 0  )  GOTO  90S 

ABB=0 . 0 

ABBR-0.0 

905  CONTINUE 

IF  (NODd,J,KPl).EQ.O>  GOTO  906 

AFF=0 . 0 

AFFR=0.0 

906  CONTINUE 

c  mnmtmmmmmtmmmmtmtmttmtmtm 

C  33333333383333333833333*333383333333333333333333333338*333 

API  I  ,J,K  )«l  AE(  I ,J,K  l+AWl  I  ,J,K  l+ANI  I  ,J.K  )*AS(  I ,  J  ,K  ) 
t  +AFd,J,K  UAB(I>J,K  1+AEE+AWV'HANNtASS+AFFfABB) 

2  ♦CONDE 1+CONDW1 +CONDN1 ♦C0NDS1+C0NDF 1 +CONDB1 

AEd.J.K  )=AE ( I >J.K  I+CONOEl 
AWd,J,K)=AHd,J,K  UC0NDM1 
AN! I ,J,K )=AN< I , J,K  HCONDN1 
AS! I ,J,K  )=ASl  I ,  J  ,K  HCONDS1 
AF 1 1 , J ,K )=AF<  I ,J ,K  HCONDF1 
ABII,J,K  l=ABI  I  > J >K  J+CONDBl 

SPII.J.K  l=-RODd,J,K  KVOLDT 

SU( I , J ,K  )=  RODI I , J ,K )*VOLDT*TOO< I ,  J,K  > 

SUI I  ,J  ,K  l=SU(  I » J  ,K  )+AEER+AWWR+ANNR*ASSR+AFFR+ABBR 
100  CONTINUE 

C  *#»  TAKE  CARE  OF  B.C.  THRU  AN,AS,AE ,AK,AF ,AB,SP  AND  SU 
C 

C  ***  RADIUS  DIRECTION 

00  500  1=2, NI 
DO  500  K=2 ,NK 

CC  SP11 ,2  >K  >=SP(I,2,K  l+ASl  1 ,2,K  I 
SP<  1 ,2,K  )=SPd,2,K  l-A3d  ,2,K  I 
SUIT,  2, K  l=SU(  1 ,2,K  1*2 . 0*ASII  ,2  ,K  l*CPDd,l,K  ) 

SP!  I  ,NJ  ,K  l=3Pd,NJ,K  I  -  AMI  I  ,NJ,K  I 

SU(  I  ,NJ,K  l=SUd,NJ,K  )  +  2.«CPDd,IWPl,K  >*ANd,NJ,K  ) 

AS<  1 ,2  ,K  1=0 .  • 

AN!  I  ,IIJ,K  1=0. 

500  CONTINUE 

C  **«  CYLIC  CONDITIONS 

DO  600  J=2,NJ 
DO  600  K=2 ,NK 

SUI  2  »J»K  )=SU(  2  ,J,K)*AHI2  ,J,K)«CU  ,J,K> 


00169000 

00169100 

00169200 

00169300 

00169400 

00169500 

00169600 

00169700 

00169800 

00169900 

00170000 

00170100 

00170200 

00170300 

00170400 

00170500 

00170600 

00170700 

00170800 

00170900 

00171000 

00171100 

00171200 

00171300 

00171400 

00171500 

00171600 

00171700 

00171600 

00171900 

00172000 

00172100 

00172200 

00172300 

00172400 

00172500 

00172600 

00172700 

00172800 

00172900 

00173C00 

0C173100 

00173200 

0C173300 

00173400 

00173500 

0C173o00 

00173700 

00173800 

00173900 

00174000 

00174100 

00174200 

00174300 

00174400 
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SU)NI,J,KI=SU(NI,J,K)+AE(NI,J,K  I*CINIP1,J,K) 
AW<  2  ,J,K  1-0.0 
AEINI  »J»K  )-0. 0 
600  CONTINUE 

C  **«  END  OF  SPHERE 

DO  700  I=2,NI 
DO  700  J=2  *NJ 

SP(  I  »J>2  )=SPI  I  >J,2  )+A8( I,J,2  ) 

SPl  I  »J  ,NK  )=SPII,J,NK)+AF(I,J,NK) 

AB(  I  > J  > 2  1=0. 

AF< I >J,NK  )=0. 

700  CONTINUE 


C  **«  ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 

DO  300  K=2,NK 
DO  300  J=2,NJ 
CO  300  1=2, NI 

API  I ,J,K )=APl  I ,J,K  )-SP< I,J,K  ) 

300  CONTINUE 


c  ***  VOLUME  MASS  SOURCE  INPUT 

VOLT=0 . 0 
00  113  1  =  2  »NI 
DO  113  J=2,NJ 
DO  113  K  =  16  >17 

IF  ( HHSZI I,J,K  I.EQ.O)  GOTO  113 
DXI  =XLU  >  J  ,K  ,0  >0  ) 

DVJ  =YLI I > J  >K  >0  >0  ) 

DZK  =ZL<I,J,K  ,0,0) 
VOL=C/I*0YJ*DZK*H*H*H 
VOLT=VOLT»VOL 
113  CONTINUE 

DO  111  1=2, NI 
DO  111  J=2 ,NJ 
DO  111  K=lo ,17 

IF  (  NHSZI  I,J,K).E0.0)  GOTO  111 
DXI  =XL)I  ,J,K  ,0 ,0  ) 

DYJ  =YL(I,J  ,K ,0  >0  ) 

CZK  =ZL(I,J,K  ,0.0) 

QQ0=0*H/( U0*CP0*RH00*TA ) 

Qf!S=  1.0 

QMS  =  QMS*H/(UO«RHOO) 
VOL=0>:l*DYJ«02K 

SU(  I , J ,K )=SU( I , J ,K  )+VOl»QMS/VOLT 
111  CONTINUE 


00174500 
00174600 
00174700 
00174800 
00174900 
00175000 
00175100 
00175200 
00175300 
00175400 
00175500 
00175600 
00175700 
00175800 
00175900 
00176000 
00176100 
00176200 
00176300 
00176400 
00176500 
00176600 
00176700 
00176800 
00176900 
00177000 
00177100 
00177200 
00177300 
00177400 
00177500 
00177600 
00177700 
00177800 
00177900 
001  78000 
00178100 
00178200 
00178300 
00176400 
00178500 
00178600 
00178700 
00176300 
00178900 
00179000 
001 7°100 
00179200 
00179300 
00179400 
00179500 
00179600 
00179700 
00179800 
00179900 
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c  **«  SOLVE  FOR  C 

CALL  TRIO  (  2>2,2,NI >NJM1 ,NK ,C ) 

C  **«»  RESET  CONCENTRATION  AT  R=0.0  AND  END  OF  SPHERE 

DO  81  K=1 >NKP1 

AVT=0.0 

DO  82  1=2, NI 

AVT = AVT ♦  ( C I 1 ,2 ,K )/NIMl ) 

82  CONTINUE 

DO  83  I=1,NIP1 
C(I,1,K»=AVT 

83  CONTINUE 
81  CONTINUE 

DO  74  1=1  ,NIP1 
DO  74  J=1 ,NJP1 
C( I , J,1  )=C( I ,J,2  I 
Cl  I , J,NKP1 )=C(  I ,J  >NK  ) 

74  CONTINUE 

C  *»*  FOR  SURFACE  NASS  EXCHANGE  WITH  SURROUNDING 

DO  84  1=2 ,NI 
DO  84  K=2,NK 
Cl  I >NJP1 ,K )=CI  I ,NJ,K  ) 

84  CONTINUE 


C  ***  FOR  CYLIC  CONDITION 

DO  80  J=1,NJP1 
DO  80  K=1 >NKP1 
CI1, J,K  /-ClNI,J,K) 
CINIP1,J,K)=C(2,J,K) 

80  CONTINUE 

RETURN 

END 


C  _ 

c  •♦rt*#******#****#*****************-***#*****#******#************** 

SUBROUTINE  CALU 

C  ******#*****«****•«*»****•*»****»«*«********••****«*«*•***•****** 

C0MM0U/R4/XCJ  93  )  ,YC<  93  )  ,2CI  93  )  ,XSl  93  t  ,YS<  93  1 ,2S<  93  I , 
i  DXXCI 93  I  ,DYYCI 93 ) ,D22C( 93  )  ,DXXS( 93  )  ,0YYS( 93 ) ,D22S<  93  ) 

COftMOM/BLl/DX,DY  , D2 >  VOL  >DTIME  , VOLDT.THOT ,TCOOL ,PI ,Q,QR 
COMMON/BL7/NI ,NIP1 ,NIH1 ,NJ ,NJP1 ,NJN1 ,NK ,NKP1 ,NKM1 
t  ,NIP2 ,NJP2 ,NXP2 ,NA ,NAP1 ,NAM1 ,NB ,NBP1 ,NBM1 ,KRUN,NCHIP,NJRA,NNRP 
COMMON/BL12/  NWRITE ,NTAPE .NTMAXO ,NTREAL , TIME ,SORSUM, ITER 


00180000 

00180100 

00180200 

00180300 

00180400 

ooieosoo 

00180600 

00180700 

00180800 

00180900 

00181000 

00181100 

00181200 

00181300 

00181400 

00181500 

00181600 

00181700 

00181800 

00181900 

00182000 

00182100 

00182200 

00182300 

00182400 

00182500 

00182600 

00182700 

00182800 

00182900 

00183000 

00183100 

00183200 

00183300 

00183400 

00163500 

00183600 

00163700 

00183800 

00163900 

00164000 

00184100 

00184200 

00164300 

00184400 

00184500 

00184600 

00184700 

00184800 

00184900 

00185000 

00185100 


CCMM0U/BL14/HC0EF  >TINF  >CNT  > ABTURB ,BTURB  >VISL ,VISNAX ,QCORRT ,PM1 ,PM20 01852 00 


C0MMOt4/BL1  f-/  CONST  1 » CONST 2  ,C0NST3  .C0NST4  > CONST 6  ,NT  ,U0  ,H  ,UGRT , BUOY  ,00185300 


*  CPO.PRT, CONDO, VISO.RHOO, HR, TR,TA,DTEMP,TWRITE,TTAPE,TMAX,GC,RAIR00185400 
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C06WON/BL20/SIG11!  22,16,52  I.SIG12!  22 , 16  ,32  )  .SIG22I  22,16,22  )  00185500 

>SIG13I 22,16,32 ) ,516221 22, lb, 32  I ,SIG33( 22,16,32  I  00185600 

COMMON/BL22/ICHPB! 10 ) ,NCHPI 1 10 I.JCHPBl 10  )>NCHPJ< 10  ),KCHPB( 10),  00185700 

NCHPKI 10 ) ,TCHP1 10 ) ,CPSI 10  )  .CONS! 10  )  ,HFAN( 10  )  00185800 

C0MM0M/BL31/  TOD  l  22,16,32) ,RODl  22,16,32  )  ,P0l)t  22  ,lo ,32  '  00185600 

,CODI 22,16,32 ),UOD(  22 ,16 ,32  I  ,S*ODl  22,16,32  l,HOOt  22,16,32)  00186000 

COMMON/B L3 2/  T< 22,16 ,32  ),R( 22 ,16 ,32 ) ,P< 22 ,lo ,32  1  00186100 

,C( 22,16 ,32 ) ,U( 22,16,32),V(22,16,32  I  >Hl 22,16,32)  00186200 

COMMON/BL33/  TPDI 22,16 ,32 ) ,RP0( 22,16,32  )  ,PPDl 22 ,1b, 32  )  00186300 

>CPD( 22,16,32  )  ,UPD( 22,16,32)  ,VPO(  22 ,16,32  )  ,WPD( 22 ,16,32 )  00186400 

COMMON/8 L34/  HEIGHT! 22 ,16 ,32  )  ,REQI 22 ,16  ,32  ) ,  00186500 

SMP! 22,16,32) ,SMPP( 22,16,32  ) ,PP! 22,16,32),  00186600 

OU! 22, 16, 32 ),DV( 22, 16, 32), OWt 22,16,32  )  00186700 

C0MM0N/BL36/AP1 22  >16 ,32  > , AE( 22  > 16 >32  ) , AH! 22,16,32)  ,AN(  22,16,32  ) ,  00186800 

AS! 22,16,32  I, AF< 22,16,32  ),ABI 22,16,32),  00186900 

SP( 22,16,32  )  ,SU( 22 ,16 ,32  I  ,RI( 22,16  ,32  )  00187000 

C0EH0N/BL3  7/  VIS!  22,16,32 ), CONDI  22,16,32  ), NOD! 22,16,32 ),RWALLI 579)00187100 


C  *** 


1  »CPM( 22,16,32 ) ,HSZl 3,2) ,NHSZl 22,16,32  )  ,RES0RM( 93  ) 

00187200 

00187300 

CALCULATE  COEFFICIENTS 

00167400 

00167500 

DO  ISO  K=2,NK 

00187600 

KP2=K+2 

00187700 

KP1=K+1 

00187800 

KM1-K-1 

00187900 

KM2=K-2 

00188000 

DO  100  J=2,NJ 

00188100 

JP2=Jt2 

00188200 

JP1=J+1 

00188300 

JM1=J-1 

00188400 

JM2=J-2 

00188500 

CO  100  1=2, NI 

00188600 

IP2=I +2 

00186700 

IP1=I+1 

00188300 

IM1=I-1 

00188900 

IM2=I-2 

00189000 

IF  (I.EQ.2)  IM1=NI 

00189100 

IF  (I.EQ.2)  IM2=NIM1 

00189200 

IF  (I.EQ.3I  IM2=NI 

00189J00 

IF  (I.EQ.NI)  IP2=3 

00139400 

00ie°500 

00189600 

CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

C0189700 

00189800 

DXP1=XL<  IP1  >J ,K ,1 ,0  1 

00189900 

d::i  =xlii  ,j,k,i,oi 

001“0000 

DXM1=XL! IM1 ,J ,K,1,0 ) 

00190100 

00190200 

DYP1=YL!I,JP1,K,1,0) 

0019C300 

DYJ  =YLI I ,J  ,K ,1 ,0  ) 

00190400 

0YM1=YL(  I , JM1 ,K ,1 ,0  ) 

00190500 

00190600 

0ZP1=ZL( I ,J ,KP1,1 ,0  ) 

00190700 

DZK  =ZL(  I ,  J  ,K  ,1,0) 

00190800 

DZM1=ZLII,J,KM1,1,0) 

00190900 
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c  *** 


c  *** 


c  *** 


00191000 

SURFACE  LENGTH  OF  THE 

CONTROL 

VOLUME 

00191100 

00191200 

DXN=XL<I,JP1,K,1,2) 

00191300 

DXS=XL<I,J  ,K,1,2) 

00191400 

DXF=XLU,J,KP1,1,3) 

00191500 

DXB=XL<I,J,K  ,1,3) 

0Q191t,00 

00191700 

0YF=YL(I,J,KP1,1,3) 

00191800 

DYB=YL<I,J,K  ,1,3) 

00191900 

0YE=YLIIP1,J,K,1,1) 

00192000 

DYW=YLU  ,J,K,1,1 ) 

00192100 

00192200 

OZE'ZLt IP1, J,K,1,1 ) 

00192300 

OZN=ZL<I  ,J,K,1,1) 

00192400 

OZN=ZL(I,JPl,K,l,2) 

00192500 

DZSrZLI  I ,  J  ,K,1,2) 

00192600 

00192700 

CENTRAL  LENGTH  OF  THE 

STAGGERED  CONTROL  VOLUME  FOR  U 

00192800 

00192900 

DXEE=XL<IP2,J,K,1,1) 

00193000 

DXE  =XL(  IP1,J,K,1,1) 

00195100 

DXW  =XL(I  ,  J  ,K  ,1 ,1 ) 

00193200 

DXWW=XL(  IM1 , J ,K ,1 >1 ) 

00193300 

00193400 

DYNN=YL(I,JP2,K,1,2) 

00193500 

DYN  =YL ( 1 ,  JP 1 ,K , 1 , 2 ) 

00193600 

DYS  =YL(  I  ,J  ,K,1,2) 

00193700 

0YSS=YL(I,JM1,K,1,2) 

00193800 

00193900 

OZFF=ZL( I ,J,KP2,1 ,3 ) 

00194000 

OZF  =ZLCI,J,KP1,1,3) 

00194100 

DZB  -ZLI I »J,K  ,1,3) 

00194200 

DZBB=ZL(I,J,KM1,1,3) 

00194300 

00194400 

DEFINE  THE  AREA  OF  THE 

CONTROL 

VOLUME 

00194500 

00194600 

DXYF=OXF*DYF 

00194700 

DXYB=DXB*OYB 

00194800 

OYZE=DYE*DZE 

00194900 

DYZH=DYW*CZW 

00195000 

DZXN=CZ!4*0XN 

00195100 

DZXS=0ZS*0XS 

00195200 

00195300 

VOl=DXI*DYJ*DZK 

00195400 

VOLDT=VOL/DTIME 

00195500 

00195600 

ZXOYN-DZXN/DYN 

00195700 

2X0YS-DZXS/DYS 

00195800 

XYOZF  =DXYF/DZF 

00195900 

XYOZB-OXYB/DZS 

00196000 

YZOXE=0YZE/DXE 

00196100 

YZOXW=DYZW/DXW 

00196200 

00196300 

00196400 
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***  USE  SINGLE  AND  61 -LINEAR  INTERPOLATION  TO  EVALUATE 
PHYSICAL  PROPERTIES  AND  FLUX  ON  THE  SURFACES. 


GNE*SILIN(R(I  ,JP1,KI,R(I  ,J  ,K  I  ,DYP1 ,0YJ  >*V(I  ,JP1,K> 

GNW*SILIN( R( IM1 , JP1 ,K  I  ,R( IM1 , J,K  J ,DYPI ,OYJ  l«V( INI , JP1 ,K ) 
GSE=SIL1N(R(I  >  JM1 ,K  )  >R( I  ,J ,K  I  ,DYM1 ,DYJ  )*V( I  ,J  ,K  ) 
GSW=SILINl R( INI ,  JM1 ,K )  ,Rl IM1 , J ,K  )  ,OYHl ,DYJ )*V( INI , J  ,K ) 

GE  =SILIN(R(IP1,J,K),RII  »J  >K  )  .DXEE.DXE  )*UI  IP1  >J  ,K  ) 

GP  =SILIN(  R(  INI > J .K  )  ,R(  I  .J.M.OXW  ,DXE  )*U(I  >J.K) 

GW  =SILIN(  R(  IM2 ,  J  ,K  I  ,R(  IM1 ,  J  ,K  )  ,DXFW  ,DXW  )*U(  IH1  ,J  >K  ) 

GFE=SILIN(R(I  ,J,KPl),Rd  ,J,K  )  ,D2P1  ,D2K  )*H(  I  .J.KPl) 
GFW=SILIN( R1 INI, J  ,KP1 )  ,R( IH1 , J.K  )  ,D2P1 ,D2K )*Wl IH1 , J.KPl J 
GBE=SILINIR(I  .J.KN1 1  »RI  I  » J  >K  )  »D2M1  ,DZK  l*W(  I  ,J  ,K  ) 
G6W=SILIN(  R(  IM1 , J.KMl )  ,R1  IM1  ,J,K  )  ,DZM1  ,DZK  >*Wl  INI , J,K  ) 

CE=0.5«(G£+GP  )*DYZE 
CW=0 .5*1 GP+GH  )*DYZH 

CN=SILIN( GNE ,GNN ,DXE ,0XW  l«0ZXN 
CS-SILINl GSE .GSW.DXE ,0XW  )*DZXS 

CFsSILINl GFE .GFH.OXE ,DXH  )«DXYF 
CB=SILINl GBE .GBH.OXE ,DXW  )*DXYB 

VISE  =VIS(  I  ,J,K) 

VISW=VIS(IM1,J,K) 

VISN=  (VIS(I  . JP1 >K  l+VISt I  »J»K  )♦ 

t  VISlIHl.JPl.Kl+VISIIMl.J.Ki  1/4.0 

VISS=  (VISd  ,JMl,K)*VISd  ,J,KU 

i  VISdMl.JMl.KHVISdHl.J.K)  1/4.0 

VISF=  (VISd  .J  .KP1  l+VISI  I  ,J,K>* 

&  visdMi, j.kpi  imsiiHi.j.Kn^.o 

VISB=  (VISd  .J.KMl  HVISd  >J  >K  )♦ 

&  VIS( IM1 , J ,KM1  )+VIS( INI , J ,K })/4 . 0 


VISN1=ZX0YN*VISN 

VISS1=ZX0YS*VISS 

VIScl-YZOXE*VISE 

VISW1=YZ0XW*VISW 

VISF1=XY0ZF*VISF 

VISBl=XYOZB*yiSB 


CEP=( ABS( CE  HCE  1*DXE/DXI/16 . 

CEM=( ABSICE  i-CE  XDXE/DXP1/16 . 

CWP=( ABSl CW  >+CH )«DXW/DXM1/16. 

CWH= I ABS ( CW )  -CW  )*DXH/DXI /16 . 

CNP  =  l ABSl CN  )+CN  )*DYPl*DYJ/< OYN*(  OYN+DYS  ) )/8. 


001 46500 
0019o600 
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00197000 
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00197200 
00197500 
00197400 
00197500 
00197600 
00197700 
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00198200 
00198500 
00198400 
00193500 
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00198700 
00198800 
00198900 
00199000 
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00199400 
00199500 
00199600 
00199700 
00199800 
00199900 
00200000 
00200100 
00200200 
00200300 
00200400 
0020C500 
00200600 
00200700 
00200800 
00200900 
00201000 
00201100 
00201200 
00201300 
00201400 
00201500 
00201600 
00201700 
00201800 
00201900 
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CNV,=l  ABSl  CN  )-CN  >*DYPl*DYJ/l  OYN*l  OYN+DYFW  )  )/8. 

CSP=(  ABSl  CS  )*CS  >«DYM1*DYJ/I  DYS*<  DYS+DYSS  )  1/6 . 

CSM= l ABSl CS  I  -CS )*DYM1*D Y J/<  DYS*  l  0 YS+DYN  ) )/8 . 

CFP  =  (  ABSICF  1+CF  l»OZPl*DZK/l DZF*l  OZF+DZB  )  )/8. 

CFM=(  ABSl CF  l-CF)*DZPl*DZK/IOZF«(DZF»DZFF )  1/8. 

CBP*<  ABSl  CB  J+CB  >*DZMl*DZK/<  DZB*(  OZB+DZBB  )  )/8. 

CBM=l  ABSl  CB  )-CB  >*DZM1*DZK/I  OZB*l  DZB+OZF  )  )/8. 

AE  ( I ,  J  ,K  )= - .  5*CE  *CEP  *CEM*1 1 .  *DXE  /DXE  E  )  ♦CF#KOXW/DXE  WISE  X 
AWl I , J,K  >  =  .5»CH*CI«#1+CWP*l  1 .  ♦DXW/DXWW  )+CEP«DXE/OXH«VISWl 


ANI I , J ,K  \-- . 5*DY J/OYN*CN*CNP *CNM«  1 1 .  ♦DYN/DYFN I ♦CSM*DYS/DYNWISN1 
AS! I ,J,K >=  .5*DYJ/DYS*CS+CSM+CSP*I 1. ♦OYS/OYSS  i+CNP*DYN/DYSWISSl 
AF 1 1  ,J,K  )=-. 5*DZK/DZF*CF  +CFP+CFM* 1 1 . ♦DZF/DZF F  ) ♦CBM*DZB/OZF tVISFl 
ABII,J,K)  =  .5«DZK/DZB*CB+CBM+CBP«( 1 . +DZB/OZBB  )+CFP*DZF/DZBfVISBl 


801  AEE=-CEM*DXE/DXEE 
AEER=AEE*UPO< IP2 , J ,K ) 

802  CONTINUE 

803  AWW=-CWP*DXH/OXWW 
AKWR=AKW*UPDl IM2 , J ,K ) 

804  CONTINUE 

IF  (J.LT.NJ)  GOTO  80S 
ANN-0 . 

ANNR=0 . 

GOTO  806 

805  ANN=-CNM*DYN/DYNN 
AN!IR=ANN*UPOl  I  ,  JP2  ,K  ) 

806  CONTINUE 

IF  IJ.GT.2I  GOTO  807 
ASS=0. 

ASSR=0. 

GOTO  808 

807  ASS=-CSP«DYS/DYSS 
AS3R=ASS*UPDI  I ,  JM2  ,K  ) 

808  CONTINUE 

IF  IK.LT.NK.)  GOTO  809 
AFF=0. 

AFFR=0. 

GOTO  810 

809  AFF=-CFM*DZF/OZFF 
AFFR=AFF*UPOl I , J ,KP2 ) 

810  CONTINUE 

IF  IK.GT.2)  GOTO  811 
ABB=0. 

ABBR=0. 

GOTO  812 
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00206700 

00206800 

00206900 

00207000 
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non 


£11  ABB 1 -CBP*DZB/DZ8B 

A3BR-ABB*UPD( X >  J  >KM2 ) 
812  CONTINUE 


immmttimmmintmmtnmnmmtmmttm 

tsttctsKKttttRtimmtmKtmtttmtmtttitstmtt 

***  MODIFICATION  FOR  DECK  BOUNDARIES 

900  CONTINUE 

IF  (NODI  IM2,J,K).EQ.O)  GOTO  901 

AWW=0.0 

AWHR=0.0 

901  CONTINUE 

IF  I  NOD! IPlrJrK  )  .EQ. 0 )  GOTO  902 

AEE=0.0 

AEER=0.0 

902  CONTINUE 

IF  ( NODI  I , JM1 »K  ) . EQ . 0  I  GOTO  903 

ASS=0 . 0 

ASSR=0.0 

903  CONTINUE 

IF  (NOD( I >JP1,K  ) . EQ.O )  GOTO  904 
ANN=0 . 0 
ANNR=0 . 0 

904  CONTINUE 

IF  ( NODI  I >J  >KM1 )  .EQ . 0  )  GOTO  90S 

AB3=0 . 0 

ABBR=0.0 

905  CONTINUE 

IF  INOO(I,J,KP1).EQ.O  I  GOTO  906 

AFF  =0 . 0 

AFFR=0.0 

906  CONTINUE 

C  8RSi:S8‘t«58SSSRS8SS8SS838S#F8S#»SS#S5#aSl#8#»S5?8#C«5#8#R5;;SSS8 


C  ***  SU  FROM  NORMAL  STRESS 

RE  =  (  SIG1K  I  ,J,K)-(U(IP1,J,K)-U(I  ,J,K  )>*VISE/DXE >*DYZE 
RWr  (  SIG1K  IM1 , J  ,K  )-<  U(  I  ,  J  ,K  )-U(  IM1  ,J  ,K  )  >*VISH/DXH  t*DYZW 
RN=<  SIG12I I , JP1  ,K  l-l  U(  I , JP1  .K  l-Ul  I , J  ,K  )  WVISN/DYH  l*DZXN 
RS-(  SIG12I I  »J  >K  1-1  U(  I  »J  ,K)-U(I,JM1>K)  1«VISS/0YS)«DZXS 
RF  =  <  SIG13C I ,  J  ,KP1 )-( Ut  I  >J  tKPl  )-U(  I ,  J  >K  )  !*VISF/DZF  )«DXYF 
RB=(SIG13(  I  »J»K  J-(U(  I,J,K  )-U<  I.J.KMl  )I*V1SB/DZB  l*DXYB 

c  ***  SU  FROM  CURVED  STRESSES  AND  ACCELERATIONS 


00207100 

00207200 

00207300 

00207400 

00207500 

00207600 

00207700 

00207800 

00207900 

00208000 

00208100 

00208200 

00208300 

00208400 

00208500 

00208600 

00208700 

00208800 

00208900 

00209000 

00209100 

00209200 

00209300 

00209400 

00209500 

00209600 

00209700 

00209800 

00209900 

00210000 

00210100 

00210200 

00210300 

00210400 

00210500 

OOZlOoOO 

00210700 

00210800 

00210900 

00211000 

00211100 

00211200 

00211300 

00211400 

00211500 

00211600 

00211700 

00211800 

00211900 

00212000 

00212100 

00212200 

00212300 

00212400 

00212500 


AVG12r0 .5*1  SIG12I I ,  JP1  ,K  J+SIG12!  I  ,J,K  ) ) 

AVS13--0.S4I  SIG13<  1  .J.KPl  ItSIGiJl  X  .J,K  )) 

AVG22=SILIN< SIG22I I , J,K  )  .SIG22I IH1 ,J,K  > ,DXE ,DXW  I 
AVG33=SILIN(  SIG331 1 , J ,K ) .SIG331 IM1,J,K  )  ,DXE ,DXW  ) 

AUl-UI I > J >K  ) 

AU2~6ILIN( VI I  >JP1 ,K  )  ,V( I  , J ,K ) ,DY J ,DYJ , 

4  V<IM1,JP1,K),V<IM1,J,K).DYJ,DYJ,  DXE.DXM) 

AU3=BILIN(  HI  I  ,J,KP1),H(I  ,  J,K  )  ,DZK  ,DZK , 

4  H(IM1,J,KP1),W(IM1,J,K  ),D2K,DZK,  OXE,DXH) 

AR=SILIN<  R(  I , J ,K ) ,R( IM1 , J ,K  )  ,DXE  ,OXH  ) 

ARU12=AR«AU1*AU2 

ARU13=AR*AU1»AU3 

ARU22=AR«AU2*AU2 

ARU33=AR*AU3*AU3 

RRY=( AVG12-ARU12  l*DZK*< DXN-DXS  ) 

RRZ=( AVG13-ARU13  l*DYJ*l OXF-DXB  ) 

RRX=l  AVG22-ARU22  l*DZK*<  DYE-DYH  >♦ 

4  ( AVG33-ARU33 )*DYJ*l DZE-DZW  ) 

API  I »K  I = AE 1 1  > J  iK  1+AH1 1  > J  >K  )+AN(  I  > J  ,K  HAS!  I  >J  >K  > 

4  +AFI I  >  J  ,K  )+AB(  X  >  J  >K  1+AEE*AWW+ANN+ASS+AFF»ABB 

SP(  I  ,J  ,K  )  =  -l  RODt  I , J  ,K  i»OXH+ROO(  IM1 , J  ,K  )*DXE  >/(  DXH+DXE  »*VOLDT 
SU(  I ,  J,K  )=  (  ROO(  I ,  J  ,K  XDXW+RODl  IM1 ,  J  ,K  )#DXE  )/l  DXW+DXE  )*VDL0T 
4  *UOD(I,J,K) 

SU(  I , J ,K  )=SU(  I , J  ,K  ) ♦DYJ#DZK*I  PI  IM1 , J ,K  )-P(  I  ,J ,K  ) ) 

4  +AEER+AWWR+ANNR+ASSR+AFFR+ABBR 

4  +R£-RW+RN-RS*RF-RB+RRY+RRZ-RRX 

4-BUOY*SIN<  ZCl  K  ))*<  (  R(  I ,  J  ,K  l-REQi  I ,  J  ,K  )  1*DXW*C0S1  XC(  I )  )*t  R(  IM1 , 
4  J  ,K  l-REQI  IM1, J,K  )  )*DXE*COS(  X£(  IM1 ) )  )/l  DXW+DXE  )*VOL 
100  CONTINUE 

C  ***  TAKE  CARE  OF  B.C.  THRU  AN,AS,AE ,AW,AF ,AB,SP  AND  SU 
C 

C  »**  RADIUS  DIRECTION 

DO  BOO  K=2,NK 
DO  BOO  I -2 »NI 

CC  SPI 1 ,2  >K ) =SP ( 1 .2  ,K  l+ASI 1 ,2  >K ) 

SP(  I  >2»K  l=SP(  I  >2>K  I-ASI I >2  >K ) 

SU(I,2,K)=SU(I>2,K)  +  2.0*U(I,1,K)*ASII,2>K> 

SP(  I  ,NJ  ,K  l-SPI  I  ,NJ  ,K  l-ANI I  »NJ  ,K  ) 

AN! I ,NJ,K  1=0. 

ASC,2,KI=0. 

BOO  CONTINUE 

C  ***  CYLIC  CONDITION 

DO  B02  K=2»NK 
DO  502  J=2,HJ 

SUI2  ,J,KJ=SUI2  ,J,KHAH(2  ,J,K)*U(1  »J,K) 


00212600 
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00212800 
00212000 
00213000 
00213100 
00213200 
00213300 
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00217900 
00216000 
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SUINI.J.K  l=SU<NI,J,K  >*AE<NI,J,K  I*U(NIP1,J,K  > 
AH(  2  ,J,K>  =  0.0 
AE(NI,J,K  1=0.0 
502  CONTINUE 

C  ***  FRONT  AND  BACK  WALLS 

DO  600  1=2  »NI 
DO  600  J=2,NJ 

C  «**  SLIP  WALLS 

SPII,J,2)=SPII,J,2)6AB1I,J,2) 

SP(I,J,NK)=SP(I,J,NKJ+AFII,J,NK) 

AFI I >J.NK  )=0. 

AB(I,J,2>=0. 

600  CONTINUE 


IF  (NCHIP.EQ.O)  GOTO  105 

c  8****8s*3*t«388*tt 

C  #S#»*S#*C#»3SS*«3*3)feS##P3**5##*5CS3385##f#t 
C  «*»  MODIFICATION  FOR  DECK  BOUNDARIES 

DO  101  N=1 .NCHIP 
IB  =  ICHPBI N  I 
IE=IB+NCHPI<N)-1 
IBM1=IB-1 
IEP1=IE+1 
JB=JCHPB( N ) 

JE  =JB+NCHP Jt  N  l-l 
JBM1=J3-1 
JEP1=JE+1 
KB=KCHPBt  N ) 

KE=KB+NCHPM  N  J-l 

KBM1=KB-1 

KEP1=KE+1 

CO  102  J=JB,JE-1 
DO  102  K=K5,KE-1 
AE( IBM1,J,K  1=0.0 
AHl  IEP1 >J »K  1=0.0 

102  CONTINUE 

DO  103  I=IB,iE 
DO  103  K=KB,KE-1 

SP( I > JBM1 ,K )=SP( I ,  JBM1 ,K  J-AN( I ,  JBM1 ,K  ) 

AN! I > JBM1 >K  1  =  0 . 0 

SP(  I  .JE  »K  )=SP(  I  ,JE  ,K  )-AS(  I ,  JE  ,K  ) 

ASI I  >JE  >K  1=0 .0 

103  CONTINUE 


0021B100 
00218200 
00218300 
00218400 
00218500 
00218600 
00218700 
00218800 
00218400 
0021°000 
00219100 
00219200 
00219300 
0021°400 
00219500 
00219600 
00219700 
00219800 
00219400 
00220000 
00220100 
00220200 
00220300 
0022040 0 
00220500 
00220600 
00220700 
00220800 
00220900 
00221000 
00221100 
00221200 
00221300 
00221400 
00221500 
00221600 
00221700 
00221800 
00221400 
00222000 
00222100 
00222200 
00222300 
00222400 
00222500 
00222600 
00222700 
00222800 
0CZ22900 
00223000 
00223100 
00223200 
00223300 
00223400 
00223500 


161 


DO  106  I=IB,IE 
DO  106  J=JB»JE-1 

SPI I , J ,KBM1 ) =SP<  X , J ,KBM1 )-AFI I ,  J ,K8M1 ) 
AF1I,J,KBM1)=0.0 

SPI I , J  ,KE  )=SPII,J,KE  >-ABlI,J,KE  ) 
ABCI,J,KE)=0.0 
106  CONTINUE 


C  ***  FOR  THE  CELLS  INSIDE  OF  THE  DECKS 

DO  104  I=IB,IE 
DO  104  J=JB,JE-1 
DO  104  K=KB,KE-1 
SPI I >J,K  )=-l. 0E20 
AWI I , J ,K  )  =0 . 

AEI I ,J>K )*0. 

ASI I  ,J >K  )=0. 

ANII,J,K>=0. 

SU(I,J,K)=0. 

104  CONTINUE 
101  CONTINUE 

105  CONTINUE 


C  ***  ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 

DO  301  K=2,NK 
DO  301  J=2,NJ 
DO  301  1=2, NI 
DYJ=YL(I,J,K,1,0) 

DZK=ZL(I,J,K,1,0) 

0YZ=0YJ«0ZK 

API  I , J ,K  l=AP(  I  ,J,K  )-SP(  I ,  J,K  I 
DU  1 1  ,J,K  l  =  DYZ/AP(  I  ,J,K  I 
301  CONTINUE 


C  ***  SOLVE  FOR  U 

CALL  TRID  I  2,2 ,2, NI ,NJ ,NK ,U ) 

DO  74  1  =  2  »NIP1 
DO  74  J=2,NJP1 
U(  I , J ,  1  )=U(  I ,  J , 2  I 
Ul  I  , J,NKP1 )=U< I ,J,NK  ) 

74  CONTINUE 
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o  o 


DO  79  1=1 ,NIP1 
DO  79  K=1 ,NKP1 
C  U(I,1,K  l=U<I,2,K) 
79  CONTINUE 


IF  INCHIP. EQ.O  I  GOTO  112 

c  imimmiiwwtimmtwiinmiiimwwimiiwii 

C  ***  RESET  THE  VELOCITY  INSIDE  OF  DECK 

DO  110  N=1 >NCHIP 
IB=ICHPB( N I 
IE=IB*NCHPI(N)-1 
JB=JCHPB(  N ) 

JE=JB*NCHPJ<N)-1 

KB=KCHPB(N) 

KE=KB+NCHPK<  N (-1 
DO  108  I=IB,IE 
DO  108  J=JB,JE-1 
DO  103  K=KB,KE-1 
Ul  I ,J,K  1=0.0 
108  CONTINUE 
110  CONTINUE 
112  CONTINUE 

c  iwiiisimmiiwiiiitiiimiitwitiititititw 

RETURN 

END 


************ **«****•••*»•«•*»••*******  *************************** 
SUBROUTINE  CALV 

)HHHHHHHHHHHHHHHI«»II  »»»  =  **»*  »»«»  »******»***»»»*»*»*«*»«»»»*»»**♦»* 


00229100 

00229200 

00229300 

0022R400 

00226S00 

0022°o00 

00229700 

00229800 

00229900 

00230000 

00230100 

00230200 

00230300 

00230400 

00230500 

00230600 

00230700 

00230800 

00230900 

00231000 

007.31100 

00231200 

00231300 

00231400 

00231500 

00231600 

00231700 

00231800 

0C231900 

00232000 

00232100 

00232200 

00232300 

00232400 

00232500 

00232600 

00232700 

00232800 

00232900 

00233000 

00233100 

00233200 

00233300 

00233400 

00233500 


C0MM0N/R4/XCI  93 1 ,YC<  93  )  ,ZC< «3  )  ,XSI  93  1  ,YSI 93  )  ,ZS( 93  1 , 

2  DXXCI  93  ) ,DYYC(  93  ),DZZC<  93  ),DXXS!  93  ),DYYSI 93  )  ,DZZSI  93  I 

COtlMON/2 Ll/DX >DY  .DZ ,VQL  « DTIME  >VOLD7 ,THOT  ,TCOOL  »PI  ,Q,QR 
C0MXCN/BL7/NI ,NIP1 .NIM1 ,NJ ,NJP1,NJM1 ,NK ,NKP1,NKM1 
*  ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,NB ,NEP1 >NBM1 ,KRUN ,NCHIP ,NJRA ,NHRP 
C 01 V JON/EL  12/  NWRITE  ,NTAPE  ,NTMAX0  .NTREAL ,TIME  ,SORSUM,ITER 
CONMON/BLle/  CONST1  ,CONST2  .C0NST3  .C0NST4  .C0NST6  ,NT  ,U0 ,H ,UGRT  ,BUOY  ,002S3t>00 
2  CPO.PRT, CONDO ,VISO,RHOO, HR, TR,TA,DTEMP,TWRITE,TTAPE,TMAX,GC,RAIR00233700 
COMMON/BL20/SIG111 22 ,16 ,32  )  ,SIG12( 22 , 16 ,32  )  ,SIG22(  22, lb, 32)  00233800 

2  ,SIG13(22, 16, 32  ),  51523122,16, 32), SIG33I22, 16, 32)  00233900 

COMMON/BL22/ICHPB ( 10 ) ,NCHPI( 10  t.JCHPBl 10  ),NCHPJI 10  ),KCHPB( 10 ) ,  00234000 

2  NCHPK ( 10 ) ,TCHPI 10  )  ,CPSI 10 ) , CONS 1 10  )  ,WFAN( 10 )  00234100 

COMMON/BL31/  TOD( 22 ,lo ,32  )  ,R0D( 22,16  ,32  )  ,PODI 22,1^,32)  00234200 

2  iCODI 22,16,32  I.UODI 22 , 16 ,32  ) ,VOOI 22 , 16 ,32  )  ,WODI 22,16,32  )  00234300 

COMMON/BL32/  T( 22 ,16 ,32  )  ,R< 22 , 16 ,32  )  ,P1 22 ,16 ,32  )  00234400 

2  ,C I  22,16,32 ),U( 22,16,32  ),V( 22,16,32  ), HI  22 ,16,32 )  00234500 
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C0M10N/BL33/  TPD1  22 ,le .32 > ,RPDl  22 ,16 .32  )  ,PPDI 22 ,16  ,32  I  00234600 

i  »CPDI 22,lo,32 ),UPD< 22,16,32 ) ,VPDt  22 ,16 ,32  )  ,NPD( 22,16,32 )  00234700 

C0MM0N/BL34/  HEIGHT! 22 , lo ,32  )  ,REQ< 22 , 16  ,32  ) ,  00234800 

5  SMP( 22,16,32) »SMPPl  22, 16, 32), PP 122, 16, 32),  00234900 

*  DU( 22  >16  >32  )  ,0V! 22  >16 ,32  )  ,DM( 22 ,lo ,32  )  00235000 

C0MM0N/BL3e/AP(  22 , lo , 32  I , AE (  22 , lo , 32  I ,ANI  22 , 16 ,32  )  ,AN( 22,16,32),  00235100 

6  AS! 22 ,le ,32 ) ,  AF  ( 22,16,32 l,AB!  22,16,32),  00235200 

t  SP1  22 ,16 ,32  )  ,SUl 22,16, 32),  RX  (22, 16, 32)  00235300 

C(*t10N/BL37/  VISl  22,16,32  I, CONDI  22,16,32  i.NODt  22 ,16  ,32  )  ,RMALL(  579  )00235400 


C  *** 


C  *** 


1  ,CPM( 22,16,32 ),HSZ(  3,2 ) 

,NHSZI 22,16,32 ),RESORMI 93) 

00235500 

00235600 

00235700 

CALCULATE  COEFFICIENTS 

00235800 

00235900 

00  100  K=2,M< 

00236000 

KP2=K»2 

00236100 

KP1=K+1 

00236200 

KM1=K-1 

00236300 

KM2=K-2 

00236400 

DO  100  J=3,NJ 

00236500 

JP2=J»2 

00236o00 

JP1=J+1 

00236700 

JM1-J-1 

00236800 

JM2=J-2 

00236900 

DO  100  1=2 ,NI 

00237000 

IP2=I*2 

00237100 

IP1=I+1 

00237200 

IM1=I-1 

00237300 

IM2=I-2 

00237400 

IF  II.EQ.2)  IM2=NIM1 

00237500 

IF  (I.EQ.NI  )  IP2=3 

00237600 

00237700 

00237800 

CENTRAL  LENGTH  OF  THE  SCALE 

CONTROL  VOLUME 

00237900 

00238000 

0XP1=XL<  IP1,J,K,2,0) 

00238100 

DXI  =XL(  I  ,J,K,2,0) 

00238200 

DXM1=XL! IM1 , J ,K ,2 ,0 1 

00238300 

00238400 

DYP1=YL(I,JP1,K,2,0) 

00238500 

DfJ  =YL( I , J  ,K ,2 ,0  ) 

00238o00 

DYMl=YLl I , JM1 ,K ,2 ,0  ) 

00233700 

00238SC0 

CZP1=ZLI I ,J,KP1 ,2 ,0  ) 

002389C0 

DZK  =ZL1I,J,K  ,2,0) 

00239000 

CZII1=ZLI  I ,  J,KM1 ,2,0  ) 

00239100 

00239200 

SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

0C239300 

00239400 

DXN=XL( I , JP1 ,K ,2 ,2 ) 

00239500 

DXS=XL(I,J  ,K  ,2 ,2  ) 

00239600 

DXF =XH  I ,  J  ,KP1 , 2,3) 

00239700 

DXB=XL!I,J,K  ,2,3) 

00239800 

00239900 

DYF=YL( I,J,KP1,2,3) 

00240000 
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DYB=YL(I,J,K  ,2,3) 

DYE=YL(IP1,J,K,2,1) 

DYW=YL(I  ,J,K,2,1) 

0ZE=ZL(IP1,J,K,2,1 ) 

DZW=ZLtI  ,  J  ,K  ,  2 , 1 ) 

DZN=ZL<I,JP1,K.2,2  ) 

DZS=ZL(I,J  ,K,2,2I 

C  **»  CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME 

DXEE=XLIIP2,J,K,2.1 ) 

DXE  =XHIP1,J,K,2,1) 

DXW  =XL( I  ,J,K,Z,1 ) 

DXHW^XLI IM1 ,J,K,2>1) 

DYNN^YLI  I,JP2,K,2,2) 

DYN  =YL( I , JP1 ,K,2 ,2 ) 

DYS  =YL(I,J  ,K,2,2) 

OYSS-YL( X , JM1 ,K ,2 ,2 ) 

DZFF*ZL( I » J,KP2 ,2 ,3 ) 

OZF  =ZL(  I  ,  J  ,KP1 , 2,3) 

OZB  -ZL( I ,J ,K  ,2,3  J 
DZBB=ZL(X,J,KM1,2,3) 

C  ***  DEFINE  THE  AREA  OF  THE  CONTROL  VOLUME 

DXYF=OXF«DYF 

D/YB=DXB«DYB 

OYZE=DYE*CZE 

DYZW=DYW*DZW 

dzxn=dzn*d>:n 

DZXS=DZS«DXS 

VOL=CXI*DYJ*DZK 

VOLDTsVOL/OTIME 

ZXOYN = DZXN/DYN 
Z/0Y3-CZXC/DY3 
XY0ZF=3XYr/DZF 
XY0ZBOX.B/DZ3 
YZOXE  sDYZE/DXE 
YZO.<W  =  DYZH/DXH 


USE  SINGLE  AND  BI -LINEAR  INTERPOLATION  TO  EVALUATE 
*  PHYSICAL  PROPERTIES  AND  FLUX  ON  THE  SURFACES. 


GENrSILIN(  R(  IP1 ,  J  ,K),R(I,J  ,K  )  ,DXP1  ,DXI  M*UI  IP1  ,J  ,K  ) 
GES=SILIN( Rl IPl.JMl.K  I  ,R(  I,JM1,K I,0XP1,DXI )*U(  IPl.JMl.K ) 
GHN=SILINtR(IMl,J  ,K  ),RI  I  ,J  ,K),DXM1.0XI  )*>U1I  ,J  ,K ) 
GWS=SILIN(RIIM1,JM1,K  )  ,Rl I ,  JM1 ,K ) ,DXM1 ,DXI  )»U(I  ,JM1,K) 


00240100 

00240200 

00240300 

00240400 

00240500 

00240600 

00240700 

00240800 

00240900 

00241000 

00241100 

00241200 

00241300 

00241400 

00241500 

00241600 

00241700 

00241800 

00241900 

00242000 

00242100 

00242200 

00242300 

00242400 

00242500 

00242600 

00242700 

0024Z800 

00242900 

00243000 

00243100 

00243200 

00243300 

00243400 

00243500 

00243600 

00243700 

00243800 

00243900 

00244000 

00244100 

C0244200 

00244300 

00244400 

00244500 

00244o00 

00244700 

00244800 

00244900 

00245000 

00245100 

00245200 

00245300 

00245400 

00245500 


o  u 


GN  -SILXNI  Rl  I , JP1 >K  >  >R( I > J  ,K ) .DYNN.DYN  l*V( 1 ,JP1  ,K  ) 

GP  =SILINIR<1,JM1,K.I,R(I,J  ,KI,DYS  ,DYNI«VII,J  ,K ) 

GS  =SUINt  Rl  I  ,JM2  ,K  )  ,Rl  I ,  JMI  ,K  J  .DYSS.DYS  )«V(  X  ,JM1  ,K  ) 

GFNrSILIN(  R(  X  ,  J  ,KPi  i,RtI,J  ,K  ) ,  DZP1  .DZK  >*H(  I ,  J  ,KP1 1 
GFS=SILINIRII .JM1.KP1 ),RI  I  ,JM1,K  ),D2P1,DZK  l*WI  I ,  JMi  ,KP1 ) 
GBN=SIIIN(RII,J  ,KM1),R(I,J  ,K  )  ,D2M1  ,D2K  >*H(  I ,  J  ,K  ) 
GBS-SILXNI Rl I , JMI ,KM1  » ,Rl  I , JMI ,K ) ,DZM1 ,D2K )»Hl  I , JMI ,K  ) 

CN=0.5*(GN+GP l»OZXN 
CS=0.5*IGP4GS  )«D2XS 

CE-SILINI GEN»GES>DYN,DYS 1*DYZE 
CH-SILINl GWN ,GWS ,DYN ,DYS J«DYZH 

CF=SILINIGFN,GFS,DYN,DYS)«OXYF 
C8=SILIN( G8N ,G8S ,OYN,DYS , *OXYB 

VISN=VIS(I,J  >K ) 

VISS=VISII,JM1,K) 

VISE1  IVISlIPl.J  »K  l+VISl  I  >J  >KH 

S  VISIIP1.JM1.K  l+VISI  X  > JMI  >K  U/4.0 

VISW=  (VIS'IMl.J  ,K»*VISlI,J  ,K)» 

S  Viol IM1 > JMI >K l+VISI  I ,JM1,K )  )/4.0 

VISF=  IVISII.J  ,KP1  HVISII.J  »K  )♦ 

(  VISlI.JMl.KPl  t+VISl  I  >JM1»K  )  )/4.0 

VISB=  IVISII.J  ,KM1  l+VISI  I,J  >K  )♦ 

*  VISl I , JMI ,KM1 ) +VISI I , JMI ,K ) )/4 . 0 


VISNl=ZXOYN»VISN 
VISS1=2>.0YS*VISS 
VISE 1 =YZOXE  *VISe 
VISHl=YZOXW*VISW 
VISF1=XY02F*VISF 
VISBl=XYOZB*VISB 


C 

CEP  =  <  ABSl  CE  HCE  I*0XP1*DXI/1  0XE*(  OXE  *DXW  )  1/8 . 
CEM=l ABSl CE  l-CE  i*OXPl*DXI/(  0XE*l DXE+DXEE  )  )/8. 
CWP=(  ACS!  CH  l*CW  l«DXt11*0XI/(  DXW»(  OXH+DXKW  )  )/8. 
CWM=(  ABSl  CW  1-CW  l*DXttl*CXI/<  DXW*l  DXH+DXE  )  )/8. 
C 

CNP-l  ABSl  CN.HCN  l*0YN/DYJ/16  . 

CNM=l  ABSl  CN  l-CN  I*0YN/DYP1/16 . 

CSP  =  l ABSl CS  )*CS  J*DYS/DYM1/16. 

CSM=I  ABSl  CS  l-CS  )«DYS/DYJ/16 . 


CFP  =  I  ABSl  CF  HCF  l«DZPl*DZK/l  02F*I  OZF+DZB  )  )/8. 
CFM=(  ABSl  CF  l-CF  l«0ZPl*0ZK/(  0ZF*1  0ZF«DZFF  )  )/8 . 
CBP=l ABSl CB  )+CB  t*DZMl*DZK/< DZB*l DZB  +  OZBB  )  )/8. 


00245600 

00245700 

00245800 

00245900 

00246000 

00246100 

00246200 

00246300 

00246400 

00246500 

00246600 

00246700 

00246800 

00246900 

00247000 

00247100 

00247200 

00247300 

00247400 

00247500 

00247600 

00247700 

00247800 

00247900 

00248000 

00248100 

00248200 

00248300 

00248400 

00248500 

00248600 

00248700 

00248800 

00248900 

00249000 

00249100 

00249200 

00249300 

00249400 

00249500 

00249600 

0024*700 

00249800 

0024°900 

00250000 

00250100 

03250200 

00250300 

00250400 

00250500 

00250600 

00250700 

00250800 

00250900 

00251000 


u  o 


i 


CBM=l  ABS1 CB  )-CB  >«DZm*DZK/l  0ZB*(  DZB+DZF  )  )/8 . 

00251100 

c 

00251200 

c 

00251500 

AE(I,J.K)=-.5*DXI/DXE*CE+CEP*CEM*<  l.+DXE/DXEE  >+CMM*OXW.'rXr  :V1SE1 

00251400 

AH(I,J,K  )=  .5*0XI/DXW«CW*CHM*CHP*(  1 .  ♦DXH/DXWW  KCEP*DXE/DXW+VISW1 

00251500 

c 

00251600 

AN< I ,J,K  )=-.5*CN+CNP*CNM*< 1. 40YN/DYNN I+CSM*DYS/DYN*VISN1 

00251700 

AS(I,J,K)=  .5«CS*CSM*CSP«ll.*0YS/DYSS)*CNP*DYN/DYS*VISSl 

00251800 

c 

00251810 

AF( I ,J ,K  >=- .5«DZK/DZF*CF*CFP*CFM*< 1 . +DZF/DZFF  )*CBM*DZB/DZF*VISF1 

00251820 

ABI 1 ,  J ,K  )=  .S*DZK/DZB*CB*CBM*CBP*I 1 . *026/0288  )+CFP*DZF/DZB*VISBl 

00251830 

c 

00251840 

00251900 

801 

AEE=-CEM*OXE/DXEE 

00252000 

AEER-AEE*VPD1 IP2,J,K) 

00252100 

602 

CONTINUE 

00252200 

00252300 

O 

CO 

AHW=-CHP*DXH/DXVW 

00252400 

AWKR=AWW*VPO l IM2 , J ,K ) 

00252500 

804 

CONTINUE 

00252600 

00252700 

IF  (J.IT.NJ)  GOTO  805 

00252800 

ANN=0. 

00252900 

ANNR-O. 

00253000 

GOTO  806 

00253100 

805 

ANN = -CNM*D YN/OYNN 

00253200 

ANNR=ANN*VPDl I ,  JP2 ,K ) 

00253300 

806 

CONTINUE 

00253400 

00253500 

IF  (J.GT.3)  GOTO  807 

00253600 

ASS=0 . 

00253700 

ASSR=0. 

00253800 

GOTO  808 

00253900 

807 

ASS=-CSP*DYS/DYSS 

00254000 

ASSR=A5S*VP0( I ,JM2 ,K ) 

00254100 

808 

CONTINUE 

00254200 

00254300 

IF  (K.LT.NK)  GOTO  809 

00254400 

AFF=0. 

00254500 

AFFR=0. 

00254600 

GOTO  810 

00254700 

C09 

AF  F--CFM»D2F/D2FF 

00254800 

AFFR=AFF*VPD( I » J  >KP2 ) 

00254900 

810 

CONTINUE 

00255000 

00253100 

IF  (K.GT.2)  GOTO  811 

00255200 

ABB=0. 

00255300 

ABeR=0. 

00255400 

GOTO  812 

00255500 

811 

ABB  =  -CBP*OZB/DZBB 

00255600 

ABBR - AB8*VPD  < I , J ,KM2 ) 

00255700 

812 

CONTINUE 

00255800 

00255900 

00256000 

00256100 

i 


! 


167 


I 


C  #**  MODIFICATION  FOR  DECK  BOUNDARIES 

900  CONTINUE 

IF  ( N00( IM1 > J>K  ) .EQ. 0  )  GOTO  901 

AWW=0 . 0 

AHWRsO.O 

901  CONTINUE 

IF  (  NODI  IP1,J,K).EQ.0)  GOTO  902 

AEE=0 . 0 

AEER-0.0 

902  CONTINUE 

IF  (NODI  I , JM2>K ) .EQ .0 )  GOTO  905 

ASS=0 . 0 

ASSR=0.0 

905  CONTINUE 

IF  ( NODI I ,JP1  ,K  ).EQ.O  )  GOTO  904 

ANN-0 . 0 

ANNR=0.0 

904  CONTINUE 

IF  (NOD(I,J,KM1).E<3.0)  GOTO  90S 

AB8=0.0 

ABBR=0.0 

905  CONTINUE 

IF  (N0D(I,J,KP1 J.EQ.O)  GOTO  906 

AFF=0.0 

AFFR=0 . 0 

906  CONTINUE 

C  #««SSSeC3#SS«SSSSSSS*#8S#3t555»8s#«***«S*»*53t***»»t»*l ttttt 


C  ***  SU  FROM  NORMAL  STRESS 

RN=( SIG22I I ,J  ,K  )-(  V(  I  ,JP1  ,K  l-V(  I  ,J  ,K  )  )»VISN/DYN  )«DZXN 
RS=(  SIG22I  IfJMI>K)-(V(I,j  ,K  I  —VI I  ,JM1  >K  I  MtVIGS/DYS  l*DZXS 
RE  =  (SIG12(IP1,J,K1-(V(IP1,J,ki-V(I,J  ,K)  KVISE/DKE  P*DYZE 

RU=ISIG12(I  )J)Kl-(V(I  ,J  ,K  I-V(  IM1  ,J,K  I  t*VISW/DXW  l»DYZH 
RF=(SIG23(I,J,KP1  l-(V(  I,J,KP1  l-VH,J,K  )  l#VISF/DZF  l*DXYF 
RB=( SIG23(  I » J  >K  )-(VlI,J,K  J-Vl  I ,J ,KM1 )  J*VISB/D2B >*DXYB 

C  ***  SU  FROM  CURVED  STRESSES  AND  ACCELERATIONS 

AVG12=0,5*<  SIG12I  IPl.J.K  USIG12I I  ,J,K  ) ) 

AVG23=0 .5*1 SIG25I I  ,J  ,KP1 P+SIG23I I  ,J  ,K  )  ) 

AVG11=SILIN(SIG11(  I,J,K  i,SIG11(I,JM1,K  >,DYN,0YS1 
AVG33=SILIN( S1G53I I ,J,K  )  ,SIG33! I , JM1 ,K ) ,DYN,DYS ) 


00256200 

00256300 

00256400 

00256500 

00256600 

00256700 

00256300 

00256900 

00257000 

00257100 

00257200 

00257300 

00257400 

00257500 

00257600 

00257700 

00257800 

00257900 

00258000 

00258100 

0025S200 

00258300 

00258400 

00258500 

00258600 

00258700 

00258800 

00258900 

00259000 

00259100 

00259200 

00259300 

00259400 

00259500 

00259600 

00254700 

00259800 

00259900 

00260000 

00260100 

00260200 

00260300 

00260400 

00260500 

00260e00 

00260700 

00260800 

00260900 

00261000 

00261100 

00261200 

00261300 

00261400 

00261500 

00261600 
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AU2=VII,J,K) 

AU1=BILIN(  U(  IP1 ,  J  ,K),U(I,J  ,K 1,0X1 ,DXI, 

*  U( XP1,JM1 »K 1 ,Ut  X ,JM1  »K ) ,UX1 ,DX1 ,  DYN.DYS) 
AU3=BILINt HI  I  ,J,KP11,WII  , J ,K  1  ,DZk ,DZK , 

*  H(I,JM1,KP1),WII,JM1,K),DZK,DZK,  DYN.DYS) 

AR=SILIN< R( I ,J»K 1  ,R( I ,JM1,K ) ,0YN,0YS 1 

ARU1 Z = AR*AU1«AU2 
ARU23 1 AR*AU2#AU3 
ARU11=AR*AU1*AU1 
ARU33=AR*AU3*AU3 

RRX=( AVG12-ARU12 l*DZK*l 0YE-0YW 1 
RRZ=I AVG23-ARU23 )*DXI»l OYF-DYB 1 
RRY=( AVG11-ARU11  )*DZK»I  OXN-DXS  )♦ 

2  ( AVG33-ARU33 )*DXI*<  DZN-DZS  1 


API  I  ,  J ,K  )  =AE 1 1 ,  J ,K  )*AH<  I , J  ,K  l+ANI  I , J ,K  l+AS!  I ,  J,K  1 
2  +AFI I  ,J,K  UABI  X  ,J,K  )+AEE+AWH+AMN*ASS*AFFtABB 

SPI I , J >K  )  =  -<  ROOl  I  »J  ,K  >«DYS+RCD 1 1  >  JK1  ,K  )*DYN  )/(  DYS+DYN  )*VOLDT 
SU(  I  ,J,K  1=  (ROOII  ,J,K  l*DYS+RODl  I  >JM1,K  )*DYN  J/l  DYS+DYN  )*VOLDT 
2  *VOD(I,J,K) 

SUI  X  ,J,K  )=SU!  I  ,J  ,K 1+DZK*0XI*<  P(  I  ,JM1,K  )-P(  X  ,J,K  )  1 
2  ♦AEER+AKWR+ANNR+ASSR+AFFR+ABBR 

2  +RE-RW+RN-RS«-RF-RB*RRX+RRZ-RRY 

2  -BUOY*!  (R(  I,J,K  l-REQI  I  ,J,K  I  )*QYS+l R( I , JN1 ,K  1 
2  -REQl I ,  JM1 »K 1 )*DYN )/( DYStDYN )*VOL*SIN< ZCI K  )  )*SIN<  XC1 1 1 ) 

100  CONTINUE 


C  ***  TAKE  CARE  OF  B.C.  THRU  AN, AS ,AE, AH ,AF,AB,SP  AND  SU 
C 

C  *«#  RADIUS  DIRECTION 

DO  500  K=2,NK 
DO  500  1-2 ,NI 

CC  SPI  X  ,3  ,K  l=SP<  1 ,3  ,K  >*AS<  1 ,3  ,K  1 

S'Jl  X  >3  >K  1  =SUf  1 ,3  ,K  1+ASl  1 , 3  ,K  l«VU,2,K) 

AS!  1, 3, K  1=0. 

ANI I  ,UJ  ,K  1=0 . 

500  CONTINUE 

C  ***  CYLIC  CONDITIONS 

DO  502  K=2,NK 
DO  502  J=3,NJ 

SUI  2  ,J  ,K  >=SU(  2  ,J,KI*AH(2  ,J,K)*VU  ,J,K) 

SUI  MI ,  J  ,K  )=SU1  NI ,  J  ,K  l+AE  1 NI ,  J  ,K  )*V(  NIP1 ,  J,K  1 
AHI2  , J  ,K  1-0 . 0 
AEINI,J,K)=0.0 
502  CONTINUE 


00261700 

00261800 

002el900 

00262000 

00262100 

00262200 

00262300 

00262400 

00262500 

00262600 

00262700 

00262800 

00262900 

00263000 

00263100 

00263200 

00263300 

00263400 

00263500 

00263600 

00263700 

00263800 

00263900 

00264000 

00264100 

00264200 

00264300 

00264400 

00264500 

00264600 

00264700 

00264800 

00264900 

00265000 

00265100 

00265200 

00265300 

00265400 

00265500 

00265600 

00265700 

00265800 

00265900 

00266000 

00266100 

00266200 

0026o300 

00266400 

00266500 

00266600 

00266700 

00266800 

00266900 

00267000 

00267100 


■ 


I 


1 


1 


1 
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C  **•*  FRONT  AND  BACK  WALL 

DO  600  1=2 ,NI 
DO  600  J=3  >NJ 
JH1=J-1 

C  ***  SLIP  WALLS 

SP(I,J,2I=SP(I,J,2)+AB(I,J,2) 

SP(I,J,NK)=SP(I,J,NK)+AF(I,J,N<) 

AF<I,J,NKI=0. 

AB(I,J,2»=0. 

600  CONTINUE 


mmtmmmmmttmmtmHtitmtttmtitmmit 

***  MODIFICATION  FOR  DECK  BOUNDARIES 

DO  101  N=1,NCHIP 
I3=ICHPB(N> 

IE=IB*NCHPI<N)-1 

IBM1=IB-1 

IEP1=IE+1 

JB=JCHPB(N) 

JE=JS+NCHPJ<N)-1 

JBM1=JB-1 

J£P1=JE+1 

KB=KCHP3(N) 

KE=KB+HCHPMN)-1 

KBM1=KB-1 

KEP1=KE+1 

DO  102  J=JB,JE 
DO  102  K=KB,KE-1 

SP ( IBM1 , J ,K  )  =SPl IBM1 , J ,K ) *AE ( IBM1 , J ,K ) 

AEIIBM1,J,K)=0.0 

SP(IE,J,KI=SP(IE,J,K)-AW(IE,J,K) 

AW  I  IE,J,K  1=0.0 

102  CONTINUE 

DO  105  I=IB,IE-1 
DO  103  K=KB,KE-1 
ANd.JBMl  «  1=0.0 
AS(I,JEP1,KI=0.0 

103  CONTINUE 

DO  106  I=IB,IE-1 
DO  106  J=JB,JE 

SP( I , J ,KBM1  l=SP( I , J ,KBM1  l-AFl I , J ,KBM1 ) 

AF( I » J ,KBM1 )=0 .0 

SP(  I ,  J  ,KE  )=SP(  I ,  J  ,KE  )-AB(  I ,  J  ,KE  ) 


00267200 
00267300 
00267400 
00267S00 
00267600 
00267700 
00267800 
0026  7900 
00268000 
00268100 
00268200 
00268300 
00268400 
00268500 
00268600 
00268700 
00268800 
00268900 
00269000 
00269100 
00269200 
00269300 
0026°400 
00269500 
00269600 
00269700 
00269800 
00264900 
00270000 
C0270100 
00270200 
00270300 
00270400 
00270500 
00270600 
00270700 
00270800 
00270900 
00271000 
00271100 
00271200 
00271300 
00271400 
00271500 
00271600 
00271700 
00271800 
00271900 
00272000 
00272100 
00272200 
00272300 
00272400 
00272500 
00272600 
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ABII,J,K£  )=0.0 
106  CONTINUE 


C  ***  MODIFICATION  FOR  THE  CELLS  INSIDE  OF  THE  DECKS 

DO  104  I=IB,I£-I 
DO  104  J=JB,JE 
DO  104  K=KB,KE-1 
SP(I,J,KI=-1.0£20 
AH(I,J,K)=0. 

AEII.J.K  1=0. 

ASI I »J»K  )=0. 

AN  1 1 ,J,K )=0. 

SUI I  ,J ,K  )=0. 

104  CONTINUE 
101  CONTINUE 

105  CONTINUE 


C  ?**«*ft*«*Mf«t***«*t*ft*t***f*ft8*m******t« 

C  «#»*#****** 

c 

c  ***  ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 

DO  300  K=2 ,NK 
DO  300  J=3,NJ 
DO  300  1=2, NI 
0XI=XLII,J,K,2,0) 

0ZK=ZL(I,J,K,2,0) 

DZX=DZK*DXI 

API  I ,  J  ,K  l=AP(  I  ,J  ,K  l-SP(  I ,  J  ,K  ) 

0V( I , J ,K  i=02X/AP{ I , J  ,K  ) 

300  CONTINUE 


C  ***  SOLVE  FOR  V 


CALL  TRID  ( 2,3,2, NI,NJ,NK,V) 


DO  74  1=2 ,NIP1 
DO  74  J  =  2  >NJP1 
VI I , J ,1  l=V(  I , J ,2  ) 
V(I,J,NKP1)=V(I,J,NK) 
74  CONTINUE 

DO  79  1=1 ,NIP1 
DO  79  K=1,NKP1 
C  VI 1 ,2  ,K  l=V(  1 ,3,K  ) 

79  CONTINUE 


00272700 

00272800 

00272900 

00273000 

00273100 

00273200 

00273300 

00273400 

00273500 

00273600 

00273700 

00273800 

00273900 

00274000 

00274100 

00274200 

00274300 

00274400 

00274500 

0027460 0 

00274700 

00274800 

00274900 

00275000 

00275100 

00275200 

00275300 

00275400 

00275500 

00275600 

00275700 

00275800 

00275900 

00276000 

00276100 

00276200 

00276300 

00276400 

00276500 

0027o600 

00276700 

00276800 

00276°00 

0027700 0 

00277100 

00277200 

00277300 

00277400 

00277500 

00277600 

00277700 

00277800 

00277900 

00278000 

00278100 
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IF  !NCHIP.EQ.O)  GOTO  112 

c  timmmtmmnsmttmtmmftfMinmmmttmi 

C  ***  RESET  THE  VELOCITY  INSIDE  OF  THE  DECKS 

DO  110  N=1,NCHIP 
IB=ICHPB!N) 

IE*IB+NCHPI(NI-1 
JB-JCHPBl N ) 

JE=JB+NCHPJ1N)-1 

KB=KCHPBIN) 

KE=KB+NCHPK!N>-1 
DO  108  I=IB,IE-1 
DO  108  J=JB,JE 
DO  108  K*KB»K£-1 
V(I,J,K)=0.0 
108  CONTINUE 
110  CONTINUE 
112  CONTINUE 

C  ###8#8#8#83#tt#SSi;5885#S»83*#8f#8S*88SS##8»*S*8S8##«f#8#8f## 
RETURN 
END 


00278200 
00278300 
00278400 
00278S00 
00278600 
00278700 
00278800 
00278900 
00279000 
00279100 
00279200 
00279300 
C0Z79400 
00279500 
00279600 
00279700 
00279800 
00279900 
00280000 
00280100 
00280200 
00280300 
00280400 
00280500 
00280600 
00280700 
00280800 
00280900 

_  00281000 

»1HHHHHHHHHHHHHHH<  *********  »jHHHHHHHHHHHH>  ««»«««»«*  iHHHHHHHHt  IHHHHHt  00281100 
SUBROUTINE  CALM  00281200 

00281300 

C0MM0N/R4/XC < 93 ) ,YC( 93 ) ,ZC<  93  I ,XS( 93  )  ,YS( 93  )  ,ZSI 93  ) ,  00281400 

S  DXXC!  93 ) >DYYC(  93  I »DZZC(  93  I »DXXS( 93  )  >DYYSI 93 ) ,DZZS( 93 )  00281500 

COMMON/BL1/DX >DY ,DZ ,VOL  >DTIME  » VOLDT >TK0T  >TCOOL >PI ,Q ,QR  00231b00 

C0MK0N/BL7/NI  ,NIP1  ,NIM1  ,NJ  ,NJP1  ,NJ!11  »NK  ,NKP1 ,NKK1  00261 700 

,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NS,NBP1,NBM1,KRUN,NCHIP,NJRA,NHRP  00231800 
C0MM0N/BL12/  NWRITE .NTAPE .NTMAXO iNTREAL .TINE  .SORSUM.ITER  00281900 

CONNON/EL16/  CONST 1 > CONST 2 .CONST3 > CONST 4 » CONST 6 .NT ,U0 ,H ,UGRT .BUOY ,00282000 
CPO  ,PP.T  .CONDO ,  VISO  ,RH00 , HR  ,TR  ,TA  .DTEMP  .TWRITE  .TTAPE  ,TMAX  ,GC  .RAIR00282100 
COMMON/EL20/SIG11<  22 , 16 ,32 ) .SIG12I  22 , 16 ,32 ) .SIG22I 22,16,32)  C0282200 

,SIG13(  22,16,32 ),SIG23( 22 ,16 ,32  )  .SIG33I 22,16,32  )  00262300 

COMMON/BL22/ICHPB! 10 ) .NCHPI ( 10 ) , JCHPB! 10  )  .NCHPJt 10 ) ,KCHPB( 10 ) ,  00262400 

NCHPKI 10 ) ,TCHP( 10 ) ,CPS(  10 ) ,CONSI  10 ) ,WFAN(  10 )  00282500 

CONMON/BL31/  TOD! 22 ,16 ,32  ) ,R0D( 22 ,16 ,32  I  ,PODI 22 ,16 ,32  )  00282600 

»CODl 22,16,32  ),UOO(  22 , lo ,32 ) ,VOD( 22 ,1b ,32  ) ,WDDI 22,16,32)  0026  2700 

CONMON/EL32/  T!  22 , 16 ,32 ) ,R(  22 , 16 ,32  I  ,P< 22 ,16 ,32  )  00282800 

,CI 22il6,32 ),U( 22,16,32  I, V< 22,16,32  ), HI  22,16,32)  00282900 

COMMON/BL33/  TPD!  22 ,16 ,32 1 ,RPD< 22 , 16 ,32  )  ,PPD1 22 , 16 ,32  )  00283000 

,CP0<  22,16,32) ,UPD(  22 , 16 ,32  I  ,VPDt  22 ,16 ,32  )  ,HPD( 22,16,32)  00283100 

C0MM0N/BL34/  HEIGHT!  22 , 16 ,32  )  ,RE(J1  22 ,16 ,32  ) ,  00283200 

SMP!  22,16,32 ) ,SMPP( 22,16,32)  ,PP( 22,16,32  ),  00283300 

DU! 22,16,32  ),DV<  22 ,16 ,32  i  ,DW( 22,16,32  )  00283400 

COHHON/BL36/AP! 22 , 16 ,32 ) ,AE( 22 , 16 ,32  ) , AW! 22 ,16 ,32  ), AN! 22 ,16 ,32 ) ,  00283500 

«  AS! 22,16 ,32  ) , AF( 22 ,16,32 ) ,AB( 22 ,16 ,32  ) ,  00283600 


I 


I 
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c  «-** 


c  *** 


**« 


OZS=ZL<I,J  ,K,3,2) 

CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME 

0XEE=XL(IP2,J,K,3,1  I 
OXE  =XLIIP1,J,K,3,1  ) 

DXW  =XL(I  ,J,K,3,1I 
0XWH=XLIIM1,J,K,3,1) 

0YNN=YL(I,JP2,K,3,2 ) 

DYN  -YL(I»JP1»K»3»2) 

DYS  =YLII,J  ,K,3,2) 

0YSS=YL(I,JM1,K,3,2) 

0ZFF=ZL(I,J,KP2,3,3) 

D2F  =ZL(I,J,KP1,3,3) 

D2B  =ZLII,J,K  ,3,3) 

D2BB=2HI,J,KM1,3,3) 

DEFINE  THE  AREA  OF  THE  CONTROL  VOLUME 

DXYF=DXF*DYF 

DXYB=DXB*DYB 

DYZE=DYE*DZE 

DY2W'DYW*02M 

DZXN=DZN*DXN 

OZXS=DZS*DXS 

VOL=DXI*DYJ*DZK 
VOLDT =VOL/DTIME 

ZXOYN=DZXN/DYN 
2X0YS=DZXS/DYS 
XYOZF  =DXYF/D2F 
XYOZB=DXYB/DZB 
YZOXE=DYZE/OXE 
YZOXW=DYZW/DXW 


USE  SINGLE  AND  BI -LINEAR  INTERPOLATION  TO  EVALUATE 
PHYSICAL  PROPERTIES  AND  FLUX  ON  THE  SURFACES. 


GNF*SILINIR(I,JPI,K  ),R!I,J,K.  )  ,DYP1  ,DYJ  )*V(  I  ,JP1  ,K  ) 

GI3-SILINI  R< I , JP1 ,KM1  I  ,R( I , J ,KM1 )  ,DYPI  ,DYJ  )*VI  I ,  JP1 ,KM1  ) 
GSF  =SI LINI R( I , JM1 ,K  ),R(I,J,K  ) ,DYM1 ,DYJ  )*V( I  ,J  ,K  ) 

GSB=SILIN( R( J , JM1 ,KM1 J ,R( I , J,KM1  i  ,DYM1 ,DYJ  )*V( I , J  ,KM1 ) 

GF  -SI LINI R( I ,  J,KP1 )  ,R(  I  ,J,K  )  ,D2FF ,DZF  )«H( I , J ,KP1 ) 

GP  =SILIN< Rt I , J >KM1  I  ,R( I ,  J  ,K  l,DZB  ,DZF l*W< I , J ,K  ) 

GB  =SILIN(  R(  I , J ,KM2 ) ,R(  I , J ,KM1 i .D2BB ,DZB >*Hi I , J ,KM1 ) 

GEF=SILIM(  R(  IP1 ,  J  ,K  ),R(I,J,K  )  ,DXP1 ,DXI  )«UI IP1 , J ,K  ) 

GEB’SILINI R( IP1 , J ,KM1 )  ,RI I , J ,KM1 )  ,DXP1 ,DXI  >»U< IP1 , J ,KM1 ) 
GWF=SILIN(R(IM1,J,K  ),R(I,J,K  )  ,DXM1,DXI  )*U(  I  ,J,K  ) 


00289200 

00289300 

00289400 

00289500 

00289600 

00289700 

00289800 

00289900 

00290000 

00290100 

00290200 

00290300 

00290400 

00290500 

00290600 

00290700 

00290800 

00290900 

00291000 

00291100 

00291200 

00291300 

00291400 

00291500 

00291600 

00291700 

00291800 

00291900 

00292000 

00292100 

00292200 

00292300 

00292400 

00292500 

00292600 

00292700 

00292800 

00292900 

00293000 

00293100 

00293200 

00293300 

00293400 

00293500 

002°3o00 

00293700 

00293800 

00293900 

00294000 

00294100 

00294200 

00294300 

00294400 

00294500 

00294600 
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GWB=SILIN( Rl IM1 .J.KMl ) ,R(  I ,J ,KM1 ) .DXMl.DXI  )*Ut I  .J.KMl ) 

CF=0.5*(GF+GPl«DXYF 
CB=0.5*(GP+GB  )*DXYB 

CN=SILINIGNF,GNB,DZF,DZB)«DZXN 

CS=SILIN(GSF,GS6,0ZF,DZBt*DZXS 

CE=SILIN1 GEF  .GEB.DZF ,DZB l*OYZE 
CH-SILINtGHF .GWB.DZF >DZB  >*DYZW 

VISF=VIS<I,J,K  ) 

VISB=VIS(I,J,KM1) 

VISN=  (VIS(I,JP1,K  (+VISI I .  J  >K  »♦ 

t  VIS( I ,JP1 ,KM1 J+VISl I , J.KMl ))/4.0 

VISS=  IVISII.JMI.K  )+VIS(I,J,K  )  + 

*  VISl 1.JM1.KM1 )+VIS( I .J.KMl )  )/4. 0 

vise=  rvisriPi.j.K  )+visii,j,k  )♦ 

I  VISl  IPl , J .KMl HVISl  I .J.KMl  1 1/4 . 0 

VISW=  (VISl 2M1.J.K  HVISl I . J  >K  )♦ 

l  VISl  IMi ,  J  .KMl )  WISl  I ,  J  ,KM1 )  )/4 . 0 


VISN1=ZX0YN*VISN 

VISSl=ZXOYS«VISS 

VISEl=YZOXE*VISE 

VISW1=YZ0XH*VISH 

VISFl=XYOZF«VISF 

VISB1=XY0ZB«VISB 


C 

CEP=l ABSICE  1+CE  I«DXP1«DXI/I OX£«l  DXE *OXH  )  1/8. 
CEM=(  ABSl  CE  l-CE  )*DXPl«CXI/(  DXE«l  OXE*OXEE  )  1/8. 
CHP=i ABSl CW l*CW 1*0XM1M>XI/1  DXW*(  OXW+DXWW ) )/8. 
CWM=I  ABSICK)-CH)«DXM*DXI/(DXW«IDXW*DXE  )  >/8. 
c 

C((P- 1  ABSl  CN  >*CN  l»DYPl*DYJ/l  DYN*(  DYN*DYS  )  >/8. 
CNM-l  ABSl  CN  l-CN  )#OYPl#DYJ/l  OYNM  OYN*DYNN  )  1/8. 
CSP  =  <  ABSl CS  l+CS  l«DYMl*DYJ/l  DY3*l  DYS*DYSS ) )/8. 
CSM=l ABSl CS  1-CS  )*DYM1*DY J/l DYS»I  DYS+DYN  )  )/8. 


CFP  =  (  ABSICF  l+CF  l*DZF/DZK/16 . 

CFMrl ABSl CF >-CF  l*OZF/OZPl/16 . 

CBP  =  (  ABSl  CB  UCB  I*DZB/0ZM1/16 . 

CBtHl  ABSICB  »-CB)«DZB/DZK/16. 

C 

AE(I,J,Kl  =  -.5»OXI/DXE*CE+CEP*CEM*l  l.+OXE/DXEE  )+CHM*DXW/DXE*VISEl 
AWl I,J,K  )=  . 5«DXI/DXW*CW+CWM*CKP*l  1 . 4DXW/0XWW  )+CEP*DXE/DXW+VXSWl 
ANII.J.K  1=-.5*OYJ/OYN*CN+CNP4CNM*( l.+DYN/DYNN  <*CSM*DYS/DYNW1SN1 
ASl I , J ,K  )=  .5«DYJ/OYS*CS*CSM+CSP* 1 1 . ♦DYS/DYSS  )+CNP*DYN/DYS+VISSl 
C 

AF<I,J,K>*-.5«CF+CFP+CFM«l  1.4DZF/0ZFF  )+CBM«DZB/DZF+VISFl 


00294700 

00244800 

00294900 

00295000 

00295100 

00295200 

00295300 

00295400 

00295500 

00295800 

00295700 

00295800 

00295900 

00296000 

00296100 

00296200 

00296300 

00296400 

00296500 

00296600 

00296700 

00296800 

00296900 

00297000 

00297100 

00297200 

00297300 

00297400 

00297500 

00297600 

00297700 

00297800 

00297900 

00298000 

00298100 

00298200 

00298300 

00296400 

00298500 

00298600 

00293700 

00298800 

00298900 

00299000 

00299100 

00299200 

00299300 

00299400 

00299500 

00299600 

00299700 

00299800 

00299900 

00300000 

00300100 
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AB< I>J,K  1=  . 5*CB +CBM+CBP*  ( 1 . +DZB/DZBB )*CFP*DZF/DZB+VISB1 


801  AEE=-CEM«0XE/0XEE 
AEER=AEE*HPD(IP2,J,K) 

802  CONTINUE 

803  AHH=-CHP*DXW/DXWW 
AWWR=AW»WP0(  IM2  ,  J  ,K  ) 

804  CONTINUE 

IF  (J.LT.NJ)  GOTO  805 
ANN=0. 

ANNR=0. 

GOTO  806 

805  ANN - -CNM*DYN/D YNN 
ANNR=ANN*WPOI I , JP2,K ) 

806  CONTINUE 

IF  (J.GT.2)  GOTO  807 
ASS-0 . 

ASSR=0. 

GOTO  808 

807  ASS= -CSP*D YS/OYSS 
ASSR-ASS»WPO( I > JM2  >K ) 

808  CONTINUE 

IF  (K.LT.NK)  GOTO  809 
AFF=0. 

Ar FR=0 . 

GOTO  810 

809  AFF=-CFM*DZF/DZFF 
AFFR=AFF«WPD(I,J,KP2) 

810  CONTINUE 

IF  (K.GT.3)  GOTO  811 
ABB  =  0 . 

AB5R=0. 

GOTO  812 

811  ABB  = -CBP^DZB/DZBB 
AB3R=AEB*HPD(  I  ,J,KM2  ) 

812  CONTINUE 


C  #STSSTST«RTFSi:#SSaA#5##«SSSt5F!S#RST;SSSSS8##8S*flS# 
c  ***  MODIFICATION.  FOR  DECK,  BOUNDARIES 

900  CONTINUE 

IF  (NOD(IM1,J,K).EQ.O)  GOTO  901 

AHH=0.0 

AWWR=0.0 

901  CONTINUE 

IF  ( NODI  IP1»J,K).EQ.0)  GOTO  902 


oosoono 

00300120 

00300200 

00300300 

00300400 

00300500 

00300600 

00300700 

00300800 

00300900 

00301000 

00301100 

00301200 

00301300 

00301400 

00301500 

00301600 

00301700 

00301800 

00301900 

00302000 

00302100 

00302200 

00302300 

00302400 

00302500 

00302600 

00302700 

00302800 

00302900 

00303000 

00303100 

003C3200 

00303300 

00303400 

00303500 

00303600 

00303700 

00303800 

D0303900 

003n4000 

00304100 

0030*200 

00304300 

00304400 

00304500 

00304600 

00304700 

00304800 

00304900 

00305000 

00305100 

00305200 

00305300 

00305400 


AEE'O . 0 
AEER=0.0 

902  CONTINUE 

IF  ( MODI  I > JM1>K ) . EQ.O  )  GOTO  905 

ASSsO.O 

ASSR=3 . 0 

903  CONTINUE 

IF  ( NOD( I >JP1 ,K  ) . EG. 0  )  GOTO  904 

ANN=0.0 

ANNR=0.0 

904  CONTINUE 

IF  ( NODI  I »J>KM2 ) . EQ.O )  GOTO  905 

ABB=0.0 

ABBR=0 .0 

905  CONTINUE 

IF  I  NCD(  I>J,KP1).EQ.0)  GOTO  906 

AFF=0.0 

AFFR=0.0 

906  CONTINUE 

C  St*««**««t«****««**#«t**«*Sft****S«t*mtttt**«t«t 


C  *«*  SU  FROM  NORMAL  STRESS 

RF  =  (  SIG331 1  >  J  »K  )-(H(I,J,KPl(-W(I,J,K  ))*VISF/DZF  )*DXYF 
RB=(  SIG33  ( I  >  J  ,KM1  l-(W(I,J,K  >-W(I,J,KMl  >J»VISB/DZB )*DXYB 
RN=( SIG231 1 ,JP1,K )-<  HI I ,JP1,K  )-W( I ,J  ,K  I  >»VISN/DYN  l«DZXN 
RS=<SIG23(I,J  >K  )-( W(  I  >  J  »K  l-W(  I  >  JM1  »K  )  XVI5S/DYS  )«DZXS 
RE  =  <SIG13<  IPI,J,K  J-l  HI  IPl.J.K  l-W(  I  ,J,K  )  )*7ISE/DXE  t*DYZE 
RW=(  SIG131 1  ,J,K)-(N!I  ,J,K)~WUMX>J,K)I«VISW/DXW)*DYZW 

C  ***  SU  FROM  CURVED  STRESSES  AND  ACCELERATIONS 

AVG23=0.5*tSIG231I,JPl,KI+3IG23<  I,J,K  )  ) 
AVG13=0.5»1SIG13(IP1,J,K  I+SIG13I I ,J,K  ) ) 

AVG22=SILIN! SIG22I I  >J  ,K  I  ,SIG22( I > J»KMI ) >0ZF  ,DZ8 ) 
AVG1I=SILIN<  SIGlll  I ,  J,K  ), SIGlll I  ,J,KM1  ),DZF,DZB) 

AU3=W( I,J,K  I 

AU2-BILIN1  V(  I ,  JP1  ,K  ),V(I,J,K  ),DYJ,DYJ, 

*  V(  l  .JPl.KMl  ),V1 1  ,J,KM1  I.DYJ.DYJ,  DZF,DZB) 
AU1=BILIN(  Ul  IPi  >  J  >K  J,UII,J,K  ),0XI>DXI, 

*  Ul  IPI > J ,KM1  )  *UI I >J ,KM1 )  >DXI ,DXI >  DZF ,DZB  ) 

AR=SILIN< R( I , J ,K  )  ,R( I ,J ,KMI )  ,DZF ,DZB  ) 

ARU23=AR*AU2*AU3 

ARU13-AR*AU1*AU3 

ARU22=AR*AU2*AU2 


00305500 

00205600 

00305700 

00305800 

00305900 

00306000 

00306100 

00306200 

00306300 

00306400 

00306500 

00306600 

0030o700 

00306800 

00306900 

00307000 

00307100 

00307200 

00207300 

00307400 

00307500 

00207600 

00307700 

00207800 

00307900 

00308000 

00208100 

00308200 

00308200 

00308400 

00308500 

00308600 

00303700 

00308800 

00303900 

00309000 

0030°100 

00209200 

00304300 

00309400 

00309500 

00309b00 

00309700 

00309800 

00309900 

00310000 

00310100 

00310200 

00310300 

00310400 

00310500 

00310600 

00310700 

00310800 

00310900 
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100 

c  *** 
c 

c  *** 

cc 

soo 
c  *** 


502 

c  #*» 


600 


ARU1 1 =AR* AU1*AUI 

RRY=< AVG23-ARU23  l*OXI«( DZN-OZS i 
RRX= ( AVG13-ARU1S  l*DY J« I DZE -DZH  I 
RRZ=( AV322-ARU22  )*OXI*l DYF-DYB  H 
i  ( AVG11-ARU11  >#DYJ*1 DXF-DXB  I 


AP(I,J,K)=AE!I,J,KHAH!I,J,KHAN(I,J,KHAS(I,J,K) 

*  ♦AF!I,J,KHAB!I,J,K  haee+aww+ann+ass*aff*abb 

SP(  I  ,J  ,K  l=-(  ROD!  I  ,J,K  HOZB+ROD!  1  ,J  ,KM1  )*DZF  )/(  DZB+DZF  HVOLOT 
SUi  I  >J»K  )=  I  ROD!  I » J,K  )*DZB*RODI  I  ,J,KM1  )«DZF  )/(  DZB*DZF  )*V01DT 

*  «WOD(I,J,KI 

SU!I,J,K  )=SU!  I,J,K  H0XI«0YJ*(P1I,J,KM1  >-P!I,J,K) ) 

*  +aeer+awwr+annr+assr*affr+abbr 

*  ♦RE-RW+RN-RS+RF-RB*RRY+RRX'RRZ 

s  -BUOY*(  (R1 1,J,K  HREQ!  I,J,K  )  1*DZB«C0S(  ZCf  K  )  H(  R!  I  >  J, 

*  KM1  (-RE9! I ,  J  >KM1 )  )*OZF*COSl  ZC(  KM1 ) ) )/(  DZB+DZF  >*V0L*SIN1  XC(  I )) 
CONTINUE 

TAKE  CARE  OF  B.C.  THRU  AN ,AS,AE ,AW, AP  AND  SU 

RADIUS  DIRECTION 

DO  500  K=3,NK 
DO  500  1=2, NI 
KK1=K-1 

SPl  1 ,2  ,K  )=SP(  1 ,2,K  HAS!  1,2, K  ) 

SP(  1 , 2  ,K  )=SP(  1, 2, K)- AS  (1, 2, K) 

SU!  1 ,2,K  )=SU!  1 ,2,K  l*2.0*H(  1 ,1,K  HAS!  1, 2, K  ) 

SP(  I  ,NJ  ,K  l=SP(  I  ,NJ  ,K  )-AN!  I  ,NJ  ,K  ) 

AS!  1 , 2 ,K  1=0. 

AN(I,NJ,K)=0. 

CONTINUE 

CYLIC  CONDITIONS 

DO  502  K=3 ,NK 
DO  502  J=2 ,NJ 

SU(2  , J ,K  l=SU(  2  ,  J,K  HAN!  2  ,J,KI*W(1  ,J,K) 

SU!  NI  ,J,K  l=SUI  NI  ,J,K  HAE1NI,J,K  1*W1NIP1,J,K  ) 

AN!  2  ,J,K  1=0.0 
AF. I  NI ,  J,K  )=0 . 0 
CONTINUE 

FRONT  AND  BACK  WALL 
DO  600  1=2, NI 
DO  600  J=2 ,NJ 

SP(  I,J,NK  )=SP(  I  ,J,NK  HAF!I,J,NK  ) 

5P( I , J ,3  )=SP( I , J  ,3  HAB(I,J,3  i 
AF!  I , J ,NK  )=0. 

ABI I ,J ,3  1=0 . 

CONTINUE 


00311000 

00311100 

OOZUZOO 

00311300 

00311400 

00311500 

00311600 

00311700 

00311B00 

00311400 

00312000 

00312100 

00312200 

00312300 

00312400 

00312500 

00312600 

00312700 

00312800 

00312900 

00313000 

00313100 

00313200 

00313300 

00313400 

00313500 

00313600 

00313700 

00313600 

00313900 

00314000 

00314100 

00314200 

00314300 

00314400 

00314500 

00314600 

00314700 

00314800 

00314900 

00315000 

00315100 

00315200 

00315300 

00315400 

00315500 

00315e00 

00315700 

00315800 

00315900 

00316000 

00316100 

00316200 

00316300 

00316400 
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IF  INCHIP.EG.O)  GOTO  105 

c  itmmctimtmminnnmmimmni 
c  nmttmmntimttmmitmitHmn 

C  #**  MODIFICATION  FOR  DECK  BOUNDARIES 

00  101  N=1 .NCHIP 

IB=ICHPB(  N  I 

IE=IB*NCHPI(N)-1 

IBM1=IB-1 

IEP1=IE*1 

JB* JCHPBt N ) 

JE=JB+NCHPJ(N)-1 

JBM1*JB-1 

JEP1=JE*1 

KB*KCHPBINI 

KE*KB+NCHPKIN)-1 

KBM1=KB-1 

KEP1«=KE+1 


DO  102  J=JB,JE-1 
DO  102  K=KB,KE 

SPIIBM1.J.K  USPIIBM1.J.K  )-AE(  IBM1 ,  J.K  ) 

SU(  IBM1  .J.K  USUI  IBM1 , J  ,K  )♦  AE I IBMI , J  ,K  l*HF AN!  N  )«2 . 0 
AE( IBM1 »J.K  )=0 .0 


SPIIE, J.K  USPUE.J.K  I-AWIIE.J.K  J 

SU(  IE  ,J  ,K  USUI  IE ,  J  »K  )*AHl  IE  ,  J  ,K  )«HFAN<  N  )«2 .0 

AH I  IE  >J ,K >=0.0 

102  CONTINUE 

DO  103  I=IB,IE-1 
DO  103  K=KB,KE 

SP(  I ,  JBfU  ,K  USPl  I ,  JBM1  ,K  l-AN(  I ,  JBM1  ,K  t 

SUI  I ,  JBIU  ,K  USUI  I ,  J8M1  ,K  l+ANl  I ,  JBM1  ,K  I*WFAN1  N  )*2 . 0 

ANII.J8M1.KU0.0 

SPI I ,  JE  iK  USP<  I ,  JE  ,K  l-ASI  I  ,JE  ,K  ) 

SUI I ,  JE  ,K  USUI  I ,  JE  ,K  ItAGl  I , JE  ,K  )*HF  AN1 N  )*2 . 0 
ASI I »JE  »K  UO .  0 

103  CONTINUE 

DO  106  I*IB,IE-1 
DO  106  J= Jc.  ,  JE  -1 

SUI  I ,  J  .K8I11  USUI  I  .J.KBM1  HAFI I .  J  .KBM1  UWFANIN) 

SUI  I ,  J  .KEPI  USUI  I  .J.KEP1  UABI 1  .J.KEP1  UHFANI N ) 
AFII.J.KBM1  UO.O 
ABI I . J .KEPI  UO.O 
106  CONTINUE 

C  ***  FOR  THE  CELLS  INSIOE  OF  THE  DECKS 


00316500 

00316600 

00316700 

00316800 

00316900 

00317000 

00317100 

00317200 

00317300 

00317400 

00317500 

00317600 

00317700 

00317800 

00517900 

00318000 

00318100 

00318200 

00318300 

00318400 

00316493 

00318500 

00318600 

00318700 

00318710 

00318800 

00318900 

00319000 

00319100 

00319110 

00319200 

00319300 

00319400 

0031°500 

00319600 

0031*700 

00319800 

00319810 

00319900 

00320000 

00320100 

00320110 

00320200 

00320300 

00320*00 

00320500 

00320600 

00320610 

00320620 

00320700 

00320800 

00320900 

00321000 

00321100 

00321200 
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DO  104  I=IB,IE-1 
DO  104  J=JB,JE-1 
00  104  K=K8,KE 
SP<I,J,KI  =  -1.0E2 
AW(I,J,K1=0. 

AEt  I >J»K  1=0. 
ASII.J.K  1=0. 

AN(  I ,J,K  )=0  . 

AB1 I  ,J,K )  =  0. 

AF(  I ,J  >K  )  =  0. 

SU(  1 >J>K 1=1. 0E2  « 

104  CONTINUE 
101  CONTINUE 

105  CONTINUE 


HFANI N ) 


mimmtwttmtmmimtwwm 


c  *** 


ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 


DO  301  K=3,NK 
DO  301  J=2  >NJ 
DO  301  1=2, NI 
DXI=XL( I , J,K ,3 ,0  ) 
DYJ=YL(I,J,K,3,0) 

DXY=DXI*DYJ 

API  I  ,J,K  )=AP(  I  ,J,K  )-SPI  I  ,J,K ) 
DW(I,J,KI=DXY/AP(I,J,K) 

301  CONTINUE 


C  *«*  SOLVE  FOR  H 

CALL  TRIO  <2,2,3,NI,NJ,NK,M) 


DO  76  1=1, NI 
DO  76  J=1,NJ 
N!  I ,J ,2  l=W(  I  ,J,3  > 
N(I,J,NKP1>=H(I,J,NK) 
76  CONTINUE 


IF  (NCHIP.EQ.OI  GOTO  112 

C  8S8#t8C*#*8SS88###8#88##8#?S8588St8«S8#8*###*8*###8*85##88S8##8 
C  ***  RESET  THE  VELOCITY  INSIDE  OF  THE  DECKS 


DO  110  N=1 ,NCHIP 
IB=ICHPB(N) 

IE  =IB+NCHPI( N  )-l 
JB=JCHPB( N I 
JE=JBtNCHPJ<N)-l 


00321300 

00321400 

00321500 

00321600 

00321700 

00321800 

00321900 

00322000 


00322100 

00322200 

00322300 

00322400 

00322500 

00322600 

00322700 

00322800 

00322900 

00323000 

00323100 

00323200 

00323300 

00323400 

00323500 

00323600 

00323700 

00323800 

00323900 

00324000 

00324100 

00324200 

00324300 

00324400 

C0324500 

00324600 

00324700 

00324800 

00324900 

00325000 

00325100 

00325200 

00325300 

00325400 

00325500 

00325600 

00325700 

00325800 

00325900 

00326000 

00326100 

00326200 

00326300 

00326400 

00326500 


n  o 


i 


KB=KCHPBI  N  > 
KE=KB+NCHPMN  )-l 

00  10S  I=IB,IE-1 
00  108  J=JB >JE-1 
CO  103  K=KB,KE 
Wl  1 » J  ,K I=WFAN1  N ) 
108  CONTINUE 
110  CONTINUE 
112  CONTINUE 

RETURN 

END 


SUBROUTINE  CALP 


002Zt>600 

00326700 

00526791 

00326800 

00226900 

00227000 

00227100 

00227200 

00327300 

00327400 

00227500 

00227600 

00227700 

00327800 

00327900 

00328000 

00228100 

00228200 

00328300 

00328400 

00328500 

00328600 

00328700 

00328300 

00328900 


C0MM0N/R4/XC I  93  )  ,  YC( 93  )  ,ZC( 93  )  ,XSt  93  ) ,YSI  93 ) ,ZSI 93  ) , 

S  DXXC! 93  )  ,DYYC( 93  )  ,DZZC( 93  )  ,DXXS( 93  )  ,DYYS( 93  1  >0ZZS( 93 ) 

C0Mt10N/BLl/DX,DY  .DZ.VOL  »0TIME  »VOLDT »THDT .TCOOi.  >PI  ,Q,QR 
COMMON/BL  7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 »NK ,NKP1 ,NKM1 
S  »NIP2 »NJP2 ,NKP2 »NA ,NAP 1 ,NAM1 ,NB ,N3P 1 >NBM1 »KRUN,NCHIP >NJRA ,NWRP 
COMMON/B L 1 2/  NHRITE , NT APE .NTMAXO ,NTRE AL .TIME .SORSUM .ITER 
COMMON/BL  16/  CONST1  .CONST2 .CONST3 .C0NST4 .C0NST6 ,NT ,UO,H ,U6RT .BUOY ,00329000 
t  CPO ,PRT .CONDO ,VIS0 ,RHOO .HR , TR.TA.DTEMP .TWRITE .TTAPE ,TMAX ,GC , RAIR00329100 
COMMON/BL22/ICHPBI 10  )  .N'CHPI  <  10 ) ,  JCHPBI 10 )  .NCHPJI 10  )  .KCHPBI 10  J  ,  00329200 

l  NCHPK! 10  )  .TCHPl 10  )  ,CPSt 10  )  .CONSI 10  )  .WFANI 10  )  00329300 

COMMON/BL31/  TOD I  22 .lb  ,32  )  ,R0Dl 22.16,32  )  .POD I  22,16,32)  00229400 

1  ,COD( 22,16,32  I, UOD( 22 ,16 ,32 ) ,VOD( 22,16,32  )  ,WOD( 22,16,22  )  00229500 

COMMON/BL32/  Tl 22 ,16 ,32  )  ,R1 22 ,16 ,32 > ,PI 22 ,16 ,32 >  00329600 

S  ,C!22,16,32),U<22,16,32I,V<22,16,32),HI22,16.32)  00329700 

COMMON/BL33/  TPD( 22 ,1b ,32 J ,RPD1 22 ,16 ,22  )  ,PPD1 22 ,16 ,32  )  00329800 

2  ,CPD<  22 ,lo,52  )  ,UP0( 22 ,16 ,32  ) ,VPD( 22 ,16,32 ) ,WPD( 22,16,32)  00229900 

C0MM0N/BL34/  HEIGHT! 22 ,16 ,32  )  ,REQ( 22 ,16 ,22  ) ,  00330000 

I  SMP! 22 ,16 ,32  J ,SMPP( 22 ,16 ,32  )  ,PP! 22 ,16 ,32  ) ,  00330100 

i  Dill  22, 16, 32),  DVI22, 16, 32),  ON!  22, 16, 32)  00330200 

COMMON/BL36/AP1  22,16,32 ),AE(  22,16,32 ), AW!  22 , 16 ,32 ) ,AMl 22 ,16 ,32 ) ,  00330300 

S  AS(22,lo,32),AFI22,16,32),A&(Z2, 16,32),  00330400 

S  SP( 22,16,32  ),SU( 22, lo, 32  I, RI! 22,16,32  I  00330500 

COMMON/3L3  7/  VIS! 22,lo,32  I, CONDI  22 , lo ,32  )  ,NOOt  22 , 16 ,32  )  ,RWALL( 579 >00330600 


C  *** 


:  ,CPM) 22 ,16,32  )  ,HSZ( 3,2) ,NHSZI 22,16,32  )  .RESORH! 93  ) 

00330700 

00330800 

CALCULATE  COEFFICIENTS 

00330900 

00331000 

DO  100  K=2,NK 

00331100 

KP2=K*2 

00331200 

KPl=Ktl 

00331300 

K-Ml  =K-1 

00331400 

KM2=K-2 

00331500 

DO  100  J=2,NJ 

00331600 

JP2=U+2 

00331700 

JP1=J*1 

00331800 

JM1=J-1 

00331900 

181 


JM2=J-2 

00332000 

DO  100  1=2, NI 

00332100 

IP2=I+2 

00332200 

IP1=I+1 

00332300 

1M1=I-1 

00332400 

IM2=I-2 

00332500 

IF  II.EQ.NI)  IP1=2 

00332600 

00332700 

00332600 

CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

00332900 

00333000 

DXP1=XL(IP1,J,K,0,0) 

00333100 

DXI  =XL(  I  ,J,K  ,0,0  ) 

00333200 

DXM1=XL( IM1,J,K,0,0 ) 

00333300 

00333400 

DYP1*YL< I ,JP1,K,0,0 ) 

00333500 

DYJ  =YL(I,J  ,K  ,0,0  ) 

00333600 

DYM1=YL( I ,JM1,K ,0,0 ) 

00333700 

00333800 

D2P1=2L<I,J,KP1,0,0) 

00333900 

D2K  =2L(I,J,K  ,0,0) 

00334000 

D2M1=2L( I , J ,KM1 ,0 ,0 ) 

00334100 

00334200 

SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

00334300 

00334400 

DXN=XL( I ,JP1,K ,0,2 ) 

00334200 

OXS=XL(I,J  ,K ,0 ,2  ) 

00334600 

DXF=XL( I ,J,KP1 ,0 ,3 ) 

00334700 

DXB=XLI I ,J,K  ,0,3) 

00334800 

00334900 

DYF=YL( I ,J,KP1 ,0,3 ) 

00335000 

DYB=YL(I,J,K  ,0,3) 

00335100 

DYE=YL(IP1,J,K,0,1) 

00335200 

DYN=YL(  I  ,J,K,0,1) 

00335300 

00335400 

D2E=2LtIPl,J,K,0,l) 

00335500 

DZW=ZL( I  , J ,K,0 ,1 ) 

00335600 

DZN=2L(I,JP1,K,0,2) 

00335700 

D2S=2L( I , J  ,K  ,0,2  ) 

00335800 

003359C0 

00336000 

DEFINE  AREA  OF  THE  CONTROL  VOLUME 

00336100 

00336200 

DXYF  =DXF*DYF 

00336300 

DXYB=DX8»DYB 

00336400 

DYZE=DYE*DZE 

0C336500 

DY2H=DYW*D2W 

00336600 

DZXN=0ZN*0XN 

00336700 

D2XS=DZS*DXS 

00336800 

00336900 

V0L=DXI*DYJ*D2K 

00337000 

VOLDT  =VOL/DTIME 

00337100 

00337200 

RN=( R( I , J ,K  )«DYP1*R< I , JP1 ,K  )*DYJ  )/( DYP1*DYJ  ) 

00337300 

RS=(  R(  I , J  >K )*DYM1*R< I ,JM1,K  )*DYJ  )/l DYM1+DYJ  ) 

00337400 

182 


c  *** 


c 

100 

c  *** 
c 

c  »** 

500 

c  *** 

c 

c 

501 

c  *** 

502 


i 


RE  =  I  Rl  I  >J»K  HfDXPl+Rt  IP1,J,K  >«0XI  1/1 0XP1+DXI  ) 

00257500 

RW=1  Rl  I  ,J,K  K0XM1+R1 INI  ,J  ,K  )*OXI  )/l  DXM1+DXI  ) 

00557600 

RF  =  I  Rl  I  ,J,K  I«DZP1+R1  1  ,J  ,KP1  l*DZK  )/(  0ZP14DZK  ) 

00357700 

RB*t  Rl  I ,  J  ,K  )«DZM1+Rl  I  ,J  ,KM1  >*DZK  >/<  DZM1*DZK  ) 

00557800 

00357900 

DU  ON  VERTICAL  HALLS  AND  DV  ON  HORIZENTAL  HALLS 

ARE  ZERO 

00338000 

00338100 

AN1 I , J ,K l=RN*DZXN*DV< I , JP1 ,K ) 

00238200 

AS(I,J,K  )=RS*DZXS#DV1I,J,K) 

00338300 

AEl I ,  J,K  >=RE*DYZE*DU( IP1 ,J ,K  1 

00238400 

AH1 1 ,  J,K  )=RW*DYZH*DU< I ,J ,K  ) 

00338500 

AFI I ,  J  >K  >=RF*0XYF*0H<  I  ,  J  ,KP1 ) 

00338600 

AB1 1 , J,K  )=RB*DXYB*DHl 1 , J,K ) 

00338700 

00338800 

CN=RN*V( I ,  JP1 ,K  l*OZXN 

00338900 

CS=RS*Vl  I ,  J  ,k  mozxs 

00339000 

CE  =RE*U< IP1 , J ,K >*OYZE 

00339100 

CW=RW«U1I  ,J,K)*DYZH 

00339200 

CF=RF«H( I ,J,KP1 )*DXYF 

00339300 

CB=RB*WII,J,K  )«DXYB 

00339400 

00339500 

SMP1 1  > J »K  t=-l  Rl  I , J ,K  l-ROOl  I ,J,K )  1*V0L/DTIME-CE*CH-I 

:n+cs-cf«cb 

00339600 

SMPII,J,K »=-CE+CH-CN+CS-CF+CB 

003S9700 

SUl  I  >J ,K  I=SMPII,J,K) 

00339800 

SPlI.J,K>=0. 

00339900 

CONTINUE 

00340000 

00340100 

TAKE  CARE  OF  B.C.  THRU  AN,AS,AE ,AH,AF ,AB,SP  AND 

su 

00340200 

00340300 

RADIUS  DIRECTION 

00340400 

00340500 

DO  500  K=2,NK 

00340600 

DO  500  I =2 >NI 

00340700 

AS1I,2,KI=0. 

00340800 

AN1I,NJ,K)=0. 

00340900 

CONTINUE 

00341000 

00341100 

LEFT  HALL  AND  RIGHT  HALL 

00341200 

00341300 

DO  SOI  K=2,NK 

00341400 

DO  501  J=2,NJ 

00341500 

AW  2,J,K  '=0. 

00341o00 

AE(NI,J,K)=0. 

00341700 

CONTINUE 

00341800 

00341900 

FRONT  AND  BACK  HALL 

00342000 

00342100 

DO  502  1=2, NI 

00242200 

DO  502  J=2,NJ 

00342300 

ABI I,J,2 1=0.0 

00342400 

AF 1 1 , J  >NK  )=0 . 0 

00342500 

CONTINUE 

00342600 

00342700 

00342800 

00342900 

i 


i 


i 


i 


i 


i 
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IF  INCHIP.EQ.O)  GOTO  105 

C  ***  MODIFICATION  FOR  DECK  BOUNDARIES 

DO  101  N=1 >NCHIP 
IB=ICHPB(N) 

IE=IB+NCHPI(N)-1 

IBM1=IB-1 

IEP1=IE*1 

JB=JCHPB(N) 

JE=JB+NCHPJ(N)-1 

JBM1=JB-1 

JEPlsJE+1 

KB=KCHPB(N) 

KE=KB*NCHPK(N)-1 

KBM1=KB-1 

KEP1*KE*1 

DO  102  J=JB,JE-1 
DO  102  K=KB»KE-1 
AE(IEH1,J,K)=0.0 
AW(IE,J,K)=0.0 

102  CONTINUE 

DO  103  I=IB,IE-1 
DO  103  K=KB,K£-1 
AN(I,JBM1,K1=0.0 
AS(I,JE,K)=0.0 

103  CONTINUE 

DO  106  I=IB,IE-1 
00  10b  J=JS,JE-1 
AF(I,J,KBM1  1=0.0 
AB(I,J,KE J=0.0 
106  CONTINUE 

C  ***  FOR  THE  CELLS  INSIDE  OF  THE  DECKS 

DO  104  I=IB»IE-I 
DO  104  J=JB,JE-1 
DO  104  K=KB,KE-1 
SP(I,J,K  l=-1.0E20 
AHl  I , J  >K  >=0 . 

AE(  I  »J>K  )*0.  ' 

AS(I,J»K)=0. 

AN(I,J,K  1=0. 

SU(I,J,K)=0. 

104  CONTINUE 
101  CONTINUE 

105  CONTINUE 


00343000 

00343100 

00343200 

00343300 

00343400 

00343500 

00343600 

00343700 

00343800 

00343900 

00344000 

00344100 

00344200 

00344300 

00344400 

00344500 

00344600 

00344700 

00344800 

00344900 

00345000 

00345100 

00345200 

00345300 

00345400 

00345500 

00345600 

00345700 

00345S00 

00345900 

00346000 

00346100 

00346200 

00346300 

00346400 

00346500 

00346600 

00346700 

00346800 

00346900 

00347000 

00347100 

00347200 

00347300 

00347400 

00347500 

00347600 

00347700 

00347800 

00347900 

00348000 

00348100 

00348200 

00348300 

00348400 


c  ftiittittfmmtnmmttimtttttmtttm 
c  irniitttntnmtssiHiiiiiifititittimttttttmtMmtttit 


C  *««  ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 

DO  300  J*2,NJ 
DO  300  1*2, NI 
DO  300  K=2,NK 

API  I  ,J,K  )*AN(  I »J,K  HAS( I  ,J,K  )*AE(  I  >J»K  )*AW(  I  ,J,K  )-SPt  I,  J,K  ) 
*  ♦AF(I,J,K)+AB(I,J,K) 

300  CONTINUE 

C  ***  SOLUTION  OF  FINITE  DIFFERENCE  EQUATION 
CALL  TRIO  I  2 >2>2>NI ,NJ ,NK,PP ) 

C  «*«  THIS  IS  FOR  CHECKING 


DO  161  1*1 ,NIP1 
C  WRITE  (6,*  I  I 

949  FORMAT  (  •  AW  ‘  ) 

C  WRITE  16,949) 

C  WRITE  16,999)  1 1  AMI  I ,J,K)  ,K=1,NKP1  ),J*1 ,NJP1 ) 
161  CONTINUE 

DO  160  1*1  ,NIP1 
C  WRITE  (6,*)  I 

946  FORMAT  I  •  AE  ' ) 

C  WRITE  (6,948) 

C  WRITE  (6,999)  (  (  AE(  I  ,J,K  )  ,K*1  ,NKP1 ) ,  J*1  ,NJP1 ) 
160  CONTINUE 

DO  170  I *1 ,NIP1 
C  WRITE  (6,«)  I 

958  FORMAT  (  •  AB  1 ) 

C  WRITE  (6,9581 

C  WRITE  (6,999)  ( ( AB< I »J,K  )  ,K*1,NKPI )  ,J=1 ,NJP1  ) 
170  CONTINUE 

DO  180  1=1 ,NIP1 
C  WRITE  (6,*)  I 

968  FORMAT  (  ■  AF  ■  ) 

C  WRITE  (6,9b8) 

C  WRITE  (o,999)  ( ( AFt I , J,K  I  ,K=1 ,NKP1 )  ,J=1 ,NJP1 ) 
180  CONTINUE 

C  WRITE  (6,999)  ( ( SU( 1 ,5 ,K  )  ,K=1 ,NKP1 )  ,1 *1 ,NIP1 ) 
CO  190  1  =  1  ,NIP1 
C  WRITE  ( 6 ,«  )  I 

978  FORMAT  l  1  SU  •  ) 

C  WRITE  (6,978) 

C  WRITE  (6,999)  ( ( SU(  I ,  J  ,K  )  ,K=1  ,f*Pl ) ,  J=1  ,NJP1 ) 
190  CONTINUE 

DO  191  1=1 >NIP1 
C  WRITE  (6,«)  I 


I 


I 


00348500 

00348600 

00348700 

00348800 

00348900 

00349000 

00349100 

00349200 

00349300 

00349400 

00349500 

00349600 

00349700 

00349800 

00349900 

00350000 

00350100 

00350200 

00350300 

00350400 

00350500 

00350600 

00350700 

00350800 

00350900 

00351000 

00351100 

00351200 

00351300 

00351400 

00351500 

00351600 

00351700 

00351800 

00351900 

00352000 

00352100 

00352200 

00352300 

00352400 

00352500 

00352600 

00352700 

00352800 

00352900 

00353000 

00353100 

00353200 

00353300 

00353400 

00353500 

00353600 

00353700 

00353800 

00353900 
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non 


C  WRITE  16,988) 

988  FORMAT  )  ‘  PP  • ) 

C  WRITE  16,999)  l  IPPtl.J.K  ),J=1,NJP1  ),K=7,7> 
191  CONTINUE 
999  FORMAT  (12E10.3) 


C  **«  CORRECT  VELOCITIES  AND  PRESSURE 
C 

C  ***  CORRECTION  FOR  VELOCITY  U 

DO  600  I=2,NI 
IM1=I-1 

IF  (I.EQ.2)  IM1=NI 
DO  600  J=2 ,NJ 
DO  600  K=2,NK 

U(  I , J ,K  )=U(  I , J,K  )+DU(  I  ,J ,K  )*<  PPt  IM1 ,  J,K  )-PPI  I  ,J  ,K  )  ) 
600  CONTINUE 

C  «*»  CORRECTION  FOR  VELOCITY  V 

DO  603  J=3 ,NJ 
JM1=J-1 
DO  603  K=2,NK 
DO  603  1=2, NI 

V(I,J,K  )=V(  I  ,J,K  )+DV(  I  ,J,K  )*(  PP(  I  ,JM1,K  I— PPt  I  ,J,K ) ) 
603  CONTINUE 

C  ***  CORRECTION  OF  VELOCITY  W 

DO  604  K=3»NK 
KM1=K-1 
DO  604  I=2,NI 
DO  604  J=2,NJ 

K(  I ,  J  ,K  )=Wl  I  ,J,K  )*DW(  I  ,J,K  )*(  PP(  I  ,J,KM1  )-PP(  I  ,J,K  ) ) 
604  CONTINUE 


C  ***  CORRECTION  FOR  PRESSURE  P 

DO  606  J=2 ,NJ 
DO  606  1=1 ,NIPI 
DO  606  K=1 ,NK 

P<  I  ,J  ,K  l=P(I,J,KHPP(I,J,K) 
PP<  I  ,J,K  1=0. 

606  CONTINUE 

C  ***  THIS  IS  FOR  R=0.0  CASE 

DO  75  1=1 ,NIP1 
DO  75  K=1,NKP1 
Ul  1 ,1,K  )=UI  1 ,2  ,K  ) 

W(  1 ,1,K  )=W(I,2,K) 

V(  1 ,2,K  )=V( 1 ,3,K  ) 


00354000 

00354100 

00354200 

00354300 

00354400 

00354500 

00354600 

00354700 

00354800 

00354900 

00355000 

00355100 

00355200 

00355300 

00355400 

00355500 

00355600 

00355700 

00355800 

00355900 

00356000 

00356100 

00356200 

00356300 

00356400 

00356500 

00356600 

00356700 

00356800 

00356900 

00357000 

00357100 

0035720 0 

00357300 

00357400 

00357500 

00357600 

00357700 

00357800 

00357900 

00358000 

00353100 

00356200 

00353300 

00358400 

00358500 

00358600 

00353700 

00358800 

00358900 

00359000 

00359100 

00359200 

00359300 

00359400 
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o  n 


7S  CONTINUE 


***  MODIFICATION  FOR  R=0.0 

DO  55  K=2,f* 

VY=0.0 
VX=0.0 
VZ=0.0 
DO  50  1=2, NI 

VY=VY*U<  1 ,2  ,K  l*COS(  XS(  I ) ) 
VX=VX-U< 1 ,2 ,K  l«SIN( XS( I ) ) 

50  CONTINUE 

DO  51  1=2 ,NI 

VY=VY »V<  1 ,3  ,K  )*SINt  XC(  I ) ) 
VX=VX+V( 1 ,3 ,K  )*COS( XC( 1 1 ) 
VZ=VZ+MII,2,K) 

51  CONTINUE 


C  ***  FIND  THE  VELOCITIES  AT  R=0.0 
DO  52  1=1 ,NIP1 

U(  1 ,1 ,K )  =  (  -VX*SIN(XS( I  )  )*VY*COSI XS( I  ) )  )/NIMl 
VII.2.K  1=  IVX*COSlXClI )  )+VY*SlNIXCII ))  )/NIMl 
Ml 1 ,1»K  )=VZ/NIM1 
52  CONTIfJUE 
55  CONTINUE 


C  ***  THIS  IS  FOR  THE  CYLINDER  ONLY  (CYLIC  CONDITION) 

DO  76  J=1 ,NJP1 
DO  76  K=1,NKP1 
U(  l.J.K  l=U(NI,J,K) 

Ul  NIP1 ,  J  ,K  )=U(  2 ,  J  >K  ) 

VI  1 ,  J  ,K  l=VINI,J,K) 

VI  NIP1 ,  J  ,K  l=V(2,J,K) 

HI  l.J.K  l=W(  NI ,  J  ,K  ) 

MINIPl.J.K  )=WI  2.J.K  I 

76  CONTINUE 

C  »*»  THIS  FOR  SPHERE  ONLY 

DO  77  I=1,NIP1 
DO  77  J=1,NJP1 
UII.J.1  )=U(  I  ,J,2  ) 

VI I ,J,1 )=VI I ,J,2  ) 

Ml  I  ,J,2  )=W(  1  ,J,3  ) 

Ul  I ,  J  ,NKP1  )=UI  I ,  J  ,NK  ) 

VII.J.NKPl  l=V(  I ,  J  ,NK  ) 

Ml  I , J  ,NKP1  )=W(  I  ,J  ,NK  ) 

77  CONTINUE 


00359500 

00359600 

00359700 

00359800 

00359900 

00360000 

00360100 

00360200 

00360300 

00360400 

00360500 

00360600 

00360700 

00360800 

00360900 

00361000 

00361100 

00361200 

00361300 

00361400 

00361500 

003ol600 

00361700 

00361800 

00361900 

00362000 

00362100 

00362200 

00362300 

00362400 

00362500 

00362600 

00362700 

00362800 

00362900 

00363)00 

00363100 

00363200 

00363300 

00363400 

00363500 

00363600 

00363700 

00363800 

00363900 

00364000 

00364100 

00364200 

00364300 

00364400 

00364500 

00364600 

00364700 

00364800 

00364900 
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IF  tNCHIP.EQ.O )  GOTO  116 

c  ttmitinmnnmmnmtmmtnmmtttttmmtt 

C  ***  RESET  THE  VELOCITY  INSIDE  OF  DECK 

00  120  N=1 jNCHIP 
IB=ICHPBI N ) 

IErIB+NCHPI<  N )-l 
JB=JCHPBt N ) 

JESJB+NCHPJ(N)-1 
KB=KCHPB(  N ) 

KE=KB+NCHPK(N)-1 


DO  109  1=16, IE 
DO  109  J=JB,JE-1 
00  109  K=KB,KE-1 
Ut I >J  >K  )30. 0 
109  CONTINUE 

DO  118  I=IB,IE-1 
DO  118  J^JB.JE 
DO  118  K=KB»KE-1 
V(I,J,K  )=0.0 

118  CONTINUE 

DO  119  I»IB,IE-1 
DO  119  J=JB,JE-1 
DO  119  K=KB  jKE 
WII,J,K)=WFAN(N) 

119  CONTINUE 

120  CONTINUE 
116  CONTINUE 

«*#*c##s«8#t##*****t*8**ft»*#**W8*»*8t**# 

C  *««  RECALCULATE  THE  ERROR  SOURCE  AFTER  CORRECTIONS  OF  U,  V,  P 

S0RSUM=0. 

RESORMt ITER  )=0 . 

DO  700  J=2,NJ 

JP1=J»1 

JM1=J-1 

DO  700  I=2,NI 

IP1=I»1 

IM1-I-1 

DO  700  K=2,NK 

KP1=K*1 

KM1=K-1 


C  CENTRAL  LENGTH  OF  THE  SCALAR  CONTROL  VOLUME 


00365000 

00365100 

003652OU 

00365300 

00365900 

00365500 

00365600 

00365700 

00365800 

00365900 

00366000 

00366100 

00366200 

00366300 

00366310 

00366392 

00366394 

00366400 

00366500 

00366600 

00366700 

00366800 

00366900 

00367000 

00367100 

00367200 

00367300 

00367400 

00367500 

00367600 

00367700 

00367800 

00367900 

00366000 

003o3100 

00368200 

00368300 

00368400 

00368500 

00368600 

00368700 

00368800 

00368900 

00369000 

0036°100 

00369200 

00369300 

00369400 

00369500 

00569600 

00369700 

00369800 

00369900 

00370000 

00370100 
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DXP1=XLI  IP1,J,K,0,0  ) 
OXI  =xni  ,j,r.,o,o) 
DXMl-XU  IM1,J,K,0,0  ) 

DYP1=YL(I,JP1,K,0,0) 
DYJ  =YHI,J  »K  ,0  >0  ) 
DYM1=YL(I,JM1,K,0,0) 

DZP1=ZLII,J,KP1,0,0) 
OZK  ~ZH  I » J >K  ,0,0) 
DZM1*ZL<I,J,KM1,0,0) 


C  ***  SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

DXN=XLl I ,  JP1  ,K  >0,2  ) 

DXS-XL(I,J  ,K  ,0 ,2  ) 

DXF=XLI I ,J ,KP1 ,0 ,3 ) 

DXB=XLl I ,  J >K  ,0,3) 

DYF*YL< I >J ,KP1 ,0 ,3 ) 

DYB=YL<I,J,K  ,0,3) 

DYE=YLIIP1,J,K,0,1> 

0YW=YL(I  ,  J,K,0,1 ) 

DZE=ZL(IP1,J,K,0,1 ) 

DZW=ZL(I  ,  J  ,K  ,0 ,1 ) 

DZN=ZLII,JP1,K,0,Z  ) 

CZS-ZH 1 ,J  ,K,0,2) 


C  **«  DEFINE  AREA  OF  THE  CONTROL  VOLIWE 

DXYF=DXF*DYF 
OXYB=DXB*DYB 
OYZE =DYE*DZE 
DYZN=DYW*DZW 
DZXN-OZN*DXN 
DZXS = DZS*  DXS 

VOL-OXI*DYJ*DZK 
VOLDT =VOL/DTIME 


RN-I  R<  I  ,J,K  )*0YP1+R<  I  ,JP1  ,K  l*DYJ  )/l  DYP1+DYJ  ) 
RS=<  R(  I  ,J  ,K  l*OYMl*Rl  I ,  JMI  ,K  )*DYJ  )/(  DYM1*DYJ  ) 
RE-1  R(  I,J,K  1*DXP1+R<IP1,J,K  1*DXI  )/f DXP1+DXI ) 
RW=f  RII,J,K  >*DXt11*R(IMl,J,K  1*0X1  )/(DXm*DXI ) 
RF  =  (  R(  I ,  J  ,K  )*D2P1+R(  I ,  J.KPl  >*DZK  )/l  DZP1  +  DZK  ) 
RB=(R(I,J,K)*0ZH1+R(I,J,KM1  l*DZK  )/( 0ZM1+0ZK) 

CN=RN*V(  I ,  JP1  ,K  H*OZXN 
CS=RS*V(I,J  ,K)*OZXS 


00370200 
00370300 
00370400 
00370500 
00370600 
00370700 
00370800 
00370900 
00371000 
0037X100 
00371200 
00371300 
00371400 
00371500 
00371600 
00371700 
00371800 
00371900 
00372000 
00372100 
00372200 
00372300 
00372400 
00372500 
00372600 
00372700 
00372800 
00372900 
00373000 
00373100 
00373200 
00373300 
003  73400 
00373500 
00373600 
00373700 
00373800 
00373900 
00374000 
00374100 
0C3 74200 
00374300 
00374400 
00374500 
00374600 
00374700 
00374800 
00374«»00 
00375000 
00375100 
00375200 
00375300 
00375400 
00375500 
00375600 
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c 


c 

c 


c 


c 

c 


c 


C£*RE*U( IP1 , J ,K  1«DYZE 
CW=RW«U(I  ,J,K>*DYZH 
CF=RF*W(  I  ,J  ,KP1  )«DXYF 
CB*RB*W( I , J ,K  )*DXYB 
SMPt I ,J ,K  >=-CE*CH-CN+CS-CF+CB 

SMPt  I  ,J  ,K  )=-( RI  i  ,J  ,K  l-RODl  I  ,J,K  )  )*VOL/DTIME-CE*CW-CN*CS-CF*CB 

***  SORSUM  IS  ACTUAL  MASS  INCREASE  OR  DECREASE  FROM  CONTINUITY 
EQUATUON  ,  THIS  HIU  COMPARE  TO  SOURCE 

SORSUM =SORSUM +SMP ( I ,J,K 1 

***  RESORM  IS  SUM  OF  THE  ABSOLUTE  VALUE  OF  SMP(I,J,K) 

RESORM1 ITER  l=RESORM( ITER  )*ABS( SMPl  I,J,K ) ) 

700  CONTINUE 
RETURN 
END 


00375700 

00375800 

00375900 

00376000 

00376100 

00376200 

00376300 

00376400 

00376500 

00376600 

00376700 

00376800 

00376900 

00377000 

00377100 

00377200 

00377300 

00377400 

00377500 

00377600 

00377700 


SUBROUTINE  TRIO! 1ST , JST ,KST ,ISP , JSP ,KSP ,PHI ) 


00377900 


COMNCN/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1 
t  ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,N8 ,N8P1 ,N8M1 ,KRUN ,NCHIP ,NJRA >NWRP 
COMMOJI/BL36/API  22,16,32),AE(22.16,32),AN(  22 ,16 ,32  )  ,AN(  22,16,32), 
S  AS I  22,16,32  ),AF(  22,16,32  ),AB1 22,16,32 ), 

5  SPI  22,16,32)  ,SU(  22, 16, 32),  RI  (22, 16, 32) 

DIMENSION  Al 99  ) ,B( 99  )  ,Cl 99 )  ,PHIt  22 ,16 ,32  ) 

GOTO  405 
I3TM1=IST-1 
AIISTM1  1=0. 

Cl ISTM1  )=0 . 

DO  100  J=JST,JSP 
DO  100  K=KST ,KSP 
DO  101  I=IST,ISP 
All  l=AE  ( I ,  J  ,K  ) 

BII  )=AW(  I  ,  J  ,K  ) 

Cl  I  J=AN<  I  ,J,K  l*PHIl  I  ,J+1  ,K  l+ASl  I  ,J  ,K  >*PHIl  I  ,J-1  ,K  ) 

6  +AF ( I ,  J  ,K  >*PHI(  I ,  J  ,K  +  1  )+ABI  I  ,J  ,K  >*PHIl  I  ,J,K-1  )*SU1 1  ,J,K  ) 
TERM=1 ./(  API  I ,  J  ,K  I-BII  )*A(I-1 )) 

IF  (ABSl  All  M.LE.1.0E-70)  4(11=0.0 
IF  (ASSIBII  )  I.LE  .1.0E-70  1  Bll)  =  0.0 
IF  (ABSICII  O.LE.1.0E-70)  C(I)=0.0 
IF  ( ABS l TERM ) . LE . 1 . OE - 70  )  TERM*0.0 
At  I  )=Al  I  )*TERM 

ClI  l*l  Cl  I  )+Bl  I  )*Cl  1-1 )  )*TERM 
101  CONTINUE 

PHIl  ISP »J,K )*C( ISP  ) 

ISTA=IST+1 

DO  102  II=ISTA»ISP 

I=IST*ISP-II 

IP1*I»1 


00378100 

00378200 

00378300 

00378400 

00378500 

00378600 

00378700 

00378800 

00378900 

00379000 

00379100 

00379200 

00379300 

0037*>400 

00379500 

00379600 

00379700 

00379800 

00379900 

00380001 

00380002 

00380003 

00380010 

00380020 

00380100 

00380500 

00380600 

00380700 

00380800 

00380900 

00381000 
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r 

f 

i 


I 


PHI!  I ,  J  >K  I— At  I  l*PHI<  IP1 ,  J  »K  >+C<  I ) 
102  CONTINUE 
100  CONTINUE 


00  2000  J=JST,JSP 
00  2000  K=KST,KSP 
PHI ( IST-1 > J  *K  l=PHI ( ISP  ,  J  »K » 
PHI l ISP+l , J ,K  l=PHI 1 1ST , J ,K  ) 
2000  CONTINUE 


JSTM1 =J5T-1 
A.  JSTf'.;  1  =  0. 

Cl JSTM1)=0. 

DO  200  K=KST,KSP 
00  200  I=IST,ISP 
00  201  J=JST  >JSP 
Al  J)=ANU,J>K) 

B(  J I * AS 1 I  ,J,K ) 

C<  J  l=AE  1 1  ,J»K  )*PHII  1*1  ,J,K  l*AH(  I ,  J,K  l*PKI(  1-1 >  J,K  I 
(  ♦AFII,J,KI*PHI<I,J,K*1  l+ABI I >J»K  )*PHI(  I  ,J»K-1  USUII.J.K) 
TERf1=l./l  API  I  ,J,K  l-Bi  J  l«A(  J-l  1 1 
IF  lABSlA(J)).LE.1.0E-70i  AlJI=0.0 
IF  IABSIBIJJ).LE.1.0E-70)  BlJ)=0.0 
IF  I  ABSICl  J  I  I.IE.1.0E-70  )  C1J)=0.0 
IF  I ABSI TERM  I . LE . 1 . 0E-70 1  TERM=0.0 
Al  J  1=A1  J  )«TERM 

Cl  J  )  =  l  Cl  J  ItBl  J  l*CIJ-l  I  l*TERM 

201  CONTINUE 

PHI 1 1 .JSP ,K  )=C( JSP  ) 

JSTA =JST  *1 
DO  202  JJ=JSTA,JSP 
J=JST  4JSP-JJ 
JP 1  =  J  ♦  1 

PHI  I  I  ,J,K  »=AI  J  l*PHI(  I ,  JP1  ,K  HCI  J  I 

202  CONTINUE 
2C0  CONTINUE 

DO  2001  J=JST,JSP 

DO  20C1  K=KCT,KSP 

PHI  I ICT-1 ,J ,K  I=PKI1  ISP.J.K  I 

PHI! ISP*1,J,K  l=PHI 1 1ST , J ,K  ) 

2001  CONTINUE 


KSTM1=KST-1 
Al  KSTM1  1=0 . 

CIKSTM1  1=0. 

CO  500  I=IST,ISP 
DO  500  J=JST , JSP 
DO  301  K*KST,KSP 
Al  K  l=AF(  I , J ,K  ) 

BIK  l*AB( X  >J,K  ) 

Cl  K  )=AE(  I , J ,K  )«PHI(I>1,J,K  MAW  I  ,J,K  >*PHII  1-1 , J ,K  I 
(  +  AN!  I  ,J,K  l*PHI(  1 ,  J*1  ,K  MAS!  I  ,J,K  MPHI 1 1 ,  J-l  ,K  USUI  I  ,J,K  I 


00381100 
00381200 
00381300 
00381400 
00381500 
00381600 
00381700 
00381800 
00381900 
00382000 
00382100 
00382200 
00382300 
00382400 
00382500 
00382600 
00382700 
00 382800 
00382900 
00363000 
00383100 
00363200 
00383210 
00383220 
00383230 
00383240 
00383300 
00383400 
00383800 
00383°00 
00364000 
00384100 
00384200 
00384300 
0 0384400 
00384500 
00384600 
00384700 
00384800 
00384900 
00385000 
ooiesioo 

00365200 

00385300 

O0385hOO 

00335500 

00365600 

00385700 

00385800 

00385900 

00386000 

00386100 

00386200 

00386300 

00386400 


r 
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TERM=1 ./(  API  I  ,J  ,K  )-Bl  K  )*AI  K-l  t ) 

IF  l  ABSI  At  K  ) ) .  LE  .  1. 0E-70  I  AIKI=0.0 
IF  I  ABSI  P(  K  1  I . LE . 1 . OE -70  )  BIK>=0.0 
IF  (  ABSI  Cl  K  ) ) .  LE  .  1 . 0E-70  )  CIKUO.O 
IF  1 ABSI TERM  I . LE . 1. 0E-70  I  TERM=0.0 
AIK  )=AIK  »*TERM 

C<K)  =  <CIK)tB(K)*C(K-l))*TERM 
SOI  CONTINUE 

PHIl I >J>KSP  )*CIKSP  ) 

KSTA=KSTtl 

DO  $02  KK=KSTA,KSP 

K=KST*KSP-KK 

KP1*K*1 

PHIl  I  >J»K  )*A(K  )*PHI ( I  ,J,KP1  )tC(  K ) 
$02  CONTINUE 
$00  CONTINUE 

DO  2002  JsJST , JSP 
DO  2002  K=KST ,KSP 
PHI l IST-1 ,J,K )=PH I I ISP , J ,K  ) 

PHIl ISP  +  I ,J,K  )=PHI( 1ST ,J ,K ) 

2002  CONTINUE 


GOTO  700 


4405  CONTINUE 
405  KSP1=KSPU 
BIKSP1  1=0. 

CIKSP1  )=0. 

DO  600  II=IST,ISP 
I=IST  +ISP-II 
DO  600  JJ=JST , JSP 
J=JSTtJSP-JJ 
DO  601  KK=KST,KSP 

k=ksp*kst-kk 

KP1=K»1 

AIK>=AF1I,J,K> 

BIKI=AB(I,J,K) 

CIK  J=AE<  I  ,J,K  >*PHIl  1*1  ,J,K  ItAWI  I ,  J.K  J«PHII  I-l.J.K  »«AN(  I  ,J,K  )* 
*  PHIII,J*1,KUASII,J,K  >*PHI(I,J-l,K»tSUII,J,KI 
TERM=l./<  API  I,  J.K.  )-AIKl*BlMl  I  t 
BIK  I=BIK  l*TERM 
CIK  1  =  1  CIK  It  Ai  K  1*CI  Ktl  I  l*TERM 
IF  I  AeSt  AIK  )  ).  LE  .  1.0E-70  I  A(KI=0.0 
IF  I  ABSI  Bl  K  I ).  LE  .  1 .0E-70  I  BIKI=0.0 
IF  I  ABSI  CIK  )  J.LE  .  1.0E-70  )  ClKI=0.0 
601  CONTINUE 

PHI  1 1  >  J  >KGT  )=CI  KST  ) 

KSTPl*KSTtl 
DO  602  K*KSTP1,KSP 
PHIII,J,KI=B(K  J«PHI(I,J,K-l)tC(KI 
602  CONTINUE 
600  CONTINUE 


00186500 

00586510 

00586520 

00586530 

00386540 

00386600 

00386700 

00387100 

00387200 

00387300 

00387400 

00387500 

00387600 

00387700 

00387800 

00387900 

00388000 

00388100 

00388200 

00388300 

00388400 

00388500 

00388600 

00388700 

00368800 

00588900 

00389000 

00389100 

00389200 

00389300 

00389400 

00384500 

00389600 

00389700 

00389800 

00389900 

00390000 

00390100 

00390200 

00390300 

00390400 

00390500 

00390600 

00390700 

00390800 

00390900 

00391000 

003°1100 

00391200 

00391300 

00391400 

00391500 

00391600 

00391700 

00391800 


DO  2001  J-JST.JSP 
DO  2005  K=KST,KSP 
PHI I IST-1 ,J,K > — PHI ( ISP  > J  ,K  ) 
PHIl ISP*1,J,K  l=P HIl 1ST, J,K  ) 
2003  CONTINUE 


JSP1*JSP+1 
B( JSP1 1=0. 

Cl JSP1 1=0. 

DO  500  KK*KST  »KSP 

K=KST+KSP-KK 

DO  500  II*IST >ISP 

I*IST+ISP-II 

DO  501  JJsJST ,  JSP 

J=JSP*JST-JJ 

JP1=J*1 

AIJ)=AN<I,J,K) 

BIJ)*AS(I,J»K) 

Cl  J )=AE 1 1 , J,K  >«PHI  1 1+l , J ,K  )+AWl  I , J ,K  )«PHI(  1-1 , J,K  )*AFt  I  ,J ,K  )* 
t  PHI(I,J,K+1  HABII.J.K  >*PHIII,J,K-1I*SU<I,J,K) 

TERM=1 ./l AP( I , J ,K  I  —At J  )«Bl J+l  I ) 

Bl  J)=BI  J)*TERM 

Cl  Jt=(ClJ)+AlJ>*C<  J*1))«TERM 
IF  ( ABSl  At  J ) ) .  LE .  1 . 0E-70 1  AlJ)=0.0 
IF  (ABSIBI J)).LE.1.0E-70)  B(J)=0.0 
IF  t  ABSICl  J)  I.LE.1.0E-70)  ClJ)=0.0 
501  CONTINUE 

PHI  1 1 »JST  »K  l=Cl JST ) 

JSTP1=JST+1 

DO  502  J=JSTP1,JSP 

PHI  1 1 , J  ,K  )=BI  J  )«PHI  ( I  »J-1  ,K  )+C<  J ) 

502  CONTINUE 
500  CONTINUE 

DO  2004  J=JST » JSP 
DO  2004  K=KST,K.SP 
Phil IST-1 ,J,K  l=PHI<ISP,J,K  ) 

PHI ( ISP+1 , J ,K  l=PHIl IST,J,K  ) 

2004  CONTINUE 


ISP1=ISP*1 
61ISF1  >=0. 

CtiSPl  1=0. 

DO  400  JJ=JST  »  JSP 
J=JST +JSP-JJ • 

DO  400  KK=KST,KSP 
K=KST  tKSP-KK 
DO  401  II=IST,ISP 
I=ISP+IST-II 
IP1=I*1 

All  l=AEU,J,K> 

Bl  I  >*AW(  I  >  J  ,K  ) 

Cl  I  )=ANl  I  >  J  >K  )*PHI(  I  ,J  +  1  ,K  HAS 1 I ,  J,K  )»PHIl  I  >J-1  ,K  ) ♦  AF 1 1  ,J  ,K  )» 


00391400 
00392000 
00392100 
00392200 
00392300 
00392400 
00392500 
00392600 
00392700 
00392800 
00392900 
003®3000 
00393100 
00393200 
00393300 
00393400 
00393500 
00393600 
00393700 
00393800 
00393900 
00394000 
00394100 
00394200 
00394300 
00394400 
00394500 
00394600 
00394700 
00394800 
00344900 
00395000 
00395100 
00395200 
00395300 
00395400 
00 3 "5500 
00395600 
00395700 
003°5800 
00395900 
00396000 
00396100 
00396200 
00396300 
00396400 
00396500 
00396600 
00396700 
00396800 
00396900 
00397000 
00397100 
00397200 
00397300 


401 


t  PHI(  I ,  J.K+l  l+AB(  I >  J  >K  )*PHI( I ,  J,K-1  HSU(  I ,J,K ) 

TERM*l./<  API  I.J.K  I-A(  X  l«B<  I  +  l ) ) 

B(  1  )=B(  I  1*TERM 

C(I  l  =  (C(I  l+AII  >«C(I*1M«TERM 
IF  ( ABSI  A(  I  ) )  .LE .  1.0E-70  I  A1I>*0.0 
IF  (ABSIBII ) /.LE.1.0E-70  I  Btll=0.0 
IF  ( ABS(  Cl  I ) ) .  LE  .  1 . 0E-70  )  C<II=0.0 
CONTINUE 
PHI l 1ST ,J ,K  )=C( 1ST ) 

ISTP1=IST+1 

DO  402  I=ISTP1,ISP 

PHII I ,  J.K  )=B<  I  >«PHI(  1-1  »J,K  )+C(  I ) 

402  CONTINUE 
400  CONTINUE 

DO  2005  J=JST ,  JSP 
DO  2005  K=KST,KSP 
PHI I IST-1 ,  J >K  )=PHI I  ISP , J ,K  ) 

PHI l ISP  +  1 , J ,K  )=PHII 1ST, J.K  ) 

2005  CONTINUE 


700  CONTINUE 
RETURN 
END 


BLOCK  DATA 


00J97400 

00397500 

00397600 

00397700 

00397800 

00397900 

00398000 

00398100 

00398200 

00398300 

00398400 

00398500 

00398600 

00398700 

00398800 

00398900 

00399000 

00399100 

00399200 

00399300 

00399400 

00399500 

00399600 

00399700 

00399800 

00399900 

00400000 

00400100 

00400200 

00400300 

00400400 

00400500 

00400600 


C0MM0N/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1 
t  ,NIP2,NJP2,NKP2.NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NHRP 
COMMON/BL12/  NHRITE ,N7APE .NTMAXO .NTREAL .TIME ,SORSUM,ITER 
C0MM0N/BL14/HC0EF ,TINF  »CNT , ABTURB >BTURB , VISL »VISMAX ,QCORRT ,PM1 .PM200400700 
C0MM0N/BL16/  C0NST1 .CON3T2 .C0NST3 iCONST 4  , CONST 6 ,NT ,U0 ,H ,UGRT .BUOY ,00400600 
t  CPO  >PRT .CONDO .VISO.RHOO.HR  »TR ,TA ,DT£MP .TNRITE .TTAPE .TMAX.GC .RAIR00400900 


DATA  NIP2 ,NIP1 ,NI .NIM1/23 ,22 .21 .20/ 

DATA  NJP2 ,NJP1 ,NJ .NJM1/17 , 16,15, 14/ 

DATA  NKPZ ,NKP1 ,NK .NKM1/33 ,32 ,31 ,30/ 

DATA  NAP1 ,NA ,NAM1 ,NBP1 ,NB .NBM1/9 ,8,7,27,26,25/ 
DATA  UO.TAiPRT ,RHOO ,CP0 , VISO , NTMAXO/ 

»  1.0, 555. 86, 1.0, 0.0714,0. 24, 1.56E-4.0/ 

DATA  TINF ,CNT , ABTURB . BTURB/1 .0,0. 2, 2. 0,1.0/ 
DATA  GC  .RAIR/32 . 17 ,53.34/ 

DATA  QCORRT .PM1/1 .0,0.9/ 

END 


SUBROUTINE  GRID 

MKMWVUM  U  W  WMMMWMMM 
"  "  n  W  ™  n 

C0MK0N/R4/XCI 93 ) ,YC(  93 ) ,ZC<  93 ) ,XSI 93  )  ,YSI 93  )  ,ZS<  93 ) , 

*  DXXCt 93 )>DYYC< 93 ) ,DZZCI 93 ) ,DXXS( 93  )  ,DYYS( 93  )  ,0ZZS( 93 ) 

COMMON/BL 1/DX  >  OY ,02 ,V0L ,DTIME ,VOLDT ,THOT ,TCOOL ,PI ,Q,QR 


00401000 

00401100 

00401200 

00401300 

00401400 

00401500 

00401600 

00401700 

00401800 

00401900 

00402000 

00402100 

00402200 

00402300 

00402400 

00402500 

00402600 

00402700 

00402800 


i 
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00000  0  0  1)00  0  00 


C0MM0N/BL7/NI .NIPX ,NIM1 ,NJ ,NJP1 ,NJH1 ,NK ,NKP1 ,NKM1 
t  ,NXP2  »NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 »NB ,NBP1 .NBMl ,KRUN ,NCHIP ,NJRA,NWRP 

C  ***  RENERATION  OF  GRID 

PI=4.«ATANI1.  ) 

DX=1 . 0/F  LOAT ( NIM1 ) 

C  DY=l./FL0AT<NJMl-2) 

DY=1./FL0ATINJM1-1I 
OZ=PI/FLOATl  F*Ml-NB+NA-2  ) 


DO  19  I=1,NIP2 
XS(I  )=II-2J«DX«2.0*PI 
19  CONTINUE 

XSI1 J=-DX«2.0*PI 
XSl 2 )=0 . 0 
XSI3)=0.01«2.0*PI 
DO  19  1=4,13 
XSl 1  1  =  11-3  )«DX»2.0*PI 
19  CONTINUE 

XS< 14 )=XSI 13  ) 

XSl 13 l=XS( 141-0. 01*2. 0*PI 
DO  18  1=15, NIP1 
XS( I  )=XSt 14  HI  1-14  )*DX*2.0*PI 
18  CONTINUE 

XSl  NIP2  )=XS<  NIP1  HXSt  3  ) 


YSI 1  )=0 . 000 
YSI  2  1=0.025 
C  YSI 3  1=0.05 

DO  3  J=3,NJ 
YSI  J  1  =  1  J-2  )*DY 

3  CONTINUE 

YSI NJP1  )=YS( NJ ) 

YSI  NJ  )=YSINJPl)-3./8./12./9.6 
YSI  NJP2 )=YSI NJP1 H3./8./12./9.6 

CC  DO  3  J=4 ,NJP2 
CC  YSI  J  1  =  1  J-3  l*0Y 

CC  3  CONTINUE 

DO  4  1=1 >NIP1 
IP1=I+1 

DXXCI I  l=XS( IP1 J-XSI I ) 

4  CONTINUE 

DXXCI NIP2  t=DXXCI  NIP1 ) 

DO  5  I=2,NIP2 
IM1=I-1 

OXXSI 1 1= .5*1 DXXCI I HOXXCI IM1 ) ) 

5  CONTINUE 

DXXSI 1 )=DXXSI 2 ) 


00402900 

00403000 

00403100 

00403200 

00403300 

00403400 

00403500 

00403600 

00403700 

00403800 

00403900 

00404000 

00404100 

00404200 

00404300 

00404400 

00404500 

00404600 

00404700 

00404800 

00404900 

00405000 

00405100 

00405200 

00405300 

00405400 

00405500 

00405600 

00405700 

00405800 

00405900 

00406000 

00406100 

00406200 

0040=300 

00406400 

00406500 

00406600 

00406700 

00406800 

0040=900 

00407000 

00407100 

00407200 

00407300 

00407400 

00407500 

00407600 

00407700 

00407800 

00407900 

00408000 

00408100 

00408200 

00408300 
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o  o  n  o 


oo  r  j=i,njpi 

JP1=JU 

DYYCI  JI=YS(  JPD-YSI J) 

7  CONTINUE 

DYYCI  NJP2 )=DYYC(  NJP1 ) 

00  8  J=2>NJP2 
JM1=J-1 

DYYSl J 1=.S#t DYYCI J J+DYYCI JM1 ) ) 

8  CONTINUE 

DYYS( X )=DYYS( 2 ) 

00  20  1=1 »NIP2 

XCt I >=XS< I )»DXXC( I  )/2.0 

20  CONTINUE 

DO  21  J=1,NJP2 

YC I J  >  =YSI J ) +DYYC ( J  )/2 . 0 

21  CONTINUE 


DO  9  K=4,NA 
ZSIK  »=<K-3  )«0Z 
9  CONTINUE 

00  30  K=NBP1 *NK 

ZSI  K  l=2S(  NA  )♦!  K-f®  )*DZ 

30  CONTINUE 

00  31  K=NAP1,NB 
ZSIK  l=PI/2. 

31  CONTINUE 

ZSl  11=0.0 
ZS( 2  )=0.05 
ZSI  3 1=0 . 10 
ZSINKP1  )=ZS(NKM1) 

ZSI  NK  l=ZSI NKP1 1-0. OS 
ZSINKM1  I  =ZSI NKP1 1-0.10 
ZSI  NV.P2  (=ZS<  NKP1  )*0 . 05 

ZSINKP2  l=ZSINK  I 
ZSINKP1  l=ZSINKP2  1-0.05 
ZSINK  )=ZSINKP2  1-0.10 


00  10  K=1 »NKP1 

IF  I K . GE . NA . AND . K . LT . NB  1  GOTO  10 
KP1=K*1 

DZZCI K  l=ZSt KP1  l-ZSIK ) 

10  CONTINUE 

DO  32  K=NA,NBM1 
DZZCI K  1=2.854/1 NB-NA) 


00408400 

00408500 

00408600 

00408700 

00408800 

00408900 

00409000 

00409100 

00409200 

00409300 

00409400 

00409500 

00409600 

00409700 

00409800 

00409900 

00410000 

00410100 

00410200 

00410300 

00410400 

00410500 

00410600 

00410700 

00410800 

00410900 

00411000 

00411100 

00411200 

00411300 

00411400 

00411500 

00411600 

00411700 

00411800 

00411900 

00412000 

00412100 

00412200 

00412300 

00412400 

00412500 

00412600 

00412700 

00412800 

00412900 

00413000 

00413100 

00413200 

00413300 

00413400 

00413500 

00413600 

00413700 

00413800 
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32  CONTINUE 
DZZC(NXP2  )=DZZC(NKP1) 

DO  11  K=2,NKP2 

C  IF  (K.EQ.NA.OR.K.EQ.NB)  GOTO  11 
KM1=K-1 

DZZSI K )= .5*1 DZZCI K  )+0ZZC( KM1 ) ) 

11  CONTINUE 

DZZSI 1  )=DZZS( 2 ) 

DO  22  K=1,NKP2 

IF  (K.GE.NA.AND.K.LT.NB)  GOTO  22 
ZCIK  )  =ZS( K  )+DZZC(K  )/2 . 0 
22  CONTINUE 

DO  33  K=NA,NBM1 
ZCIK  )=PI/2. 

33  CONTINUE 

IF  I YSI 1 J.LT.0.0  )  YS( 1  )=0.0 
IF  (YC(l).LT.O.O)  YCI  11=0.0 
PRINT  « 

PRINT  INPUT  COORDINATE  OF  THE  TAFK  IN  THE  OROER  OF  1 

PRINT  *>•  I  XS  YS  ZS  XC  YC*> 

S  •  ZC  DXXS  DYYS  DZZS  DXXC 

S  ,  'DYYC  DZZC ' 

DO  12  I=1,NKP2 

WRITE (6,102)  I ,XS< I ) ,YS(  I ) ,ZS(  I ) ,XC( I ) ,YC( I  )  ,ZCI I ) , 

*  DXXS 1 1 )  ,DYYS( I ) , DZZSI I  )  ,DXXC( I )  ,DYYCI I ) , DZZCI I ) 

102  FORMAT! 2X,I4,12( 2X,F8.5) ) 

12  CONTINUE 

RETURN 

END 


C 

C 


*********************** 
FUNCTION  XL! I , J »K ,M,N ) 
*********************** 


C*****************  *********************************************** 


c 

c 

WHEN 

M 

OR 

N 

= 

1 

THEN  SHIFT  CELL  IN  THE  NEG 
HALF  CELL  (STAGGERED  CELL) 

X 

DIRECTION 

ONE* 

« 

f 

c 

WHEN 

M 

OR 

N 

= 

2 

THEN  SHIFT  CELL  IN  THE  NEG 
HALF  CELL  (STAGGERED  CELL) 

Y 

DIRECTION 

ONE* 

* 

c 

c 

WHEN 

M 

OR 

N 

S 

3 

THEN  SHIFT  CELL  IN  THE  NEG 
HALF  CELL  (STAGGERED  CELL) 

Z 

DIRECTION 

ONE* 

* 

c 

c 

WHEN 

M 

= 

N 

1 

THEN  SHIFT  CELL  IN  THE  NEG 
WHOLE  CELL 

X 

DIRECTION 

ONE* 

* 

c 

c 

WHEN 

M 

= 

N 

s 

2 

THEN  SHIFT  CELL  IN  THE  NEG 
WHOLE  CELL 

Y 

DIRECTION 

ONE* 

* 

c 

c 

WHEN 

M 

= 

N 

= 

3 

THEN  SHIFT  CELL  IN  THE  NEG 
WHOLE  CELL 

Z 

DIRECTION 

ONE* 

* 

00413900 

00h14000 

00914100 

00414200 

00414300 

00414400 

00414500 

00414600 

00414700 

00414800 

00414900 

00415000 

00415100 

00415200 

00415300 

00415400 

00415500 

00415600 

00415700 

00415800 

00415900 

00416000 

00416100 

00416200 

00416300 

00416400 

00416500 

00416600 

00416700 

00416800 

00416900 

00417000 

00417100 

00417200 

00417300 

00417400 

00417500 

00417600 

00417700 

00417800 

00417900 

00418000 

00418100 

00418200 

00418300 

00418400 

004ie500 

00418600 

00418700 

00418800 

00418900 

00419000 

00419100 

00419200 

00419300 
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C0MM0N/R4/XC ( 93  )  ,YC( 93  )  ,ZC< 93  )  ,XS(  93  ) ,YS( 93 ) ,ZS( 93  ) , 
i  DXXC I 93  ) , 0 YYC I  93 ) , DZZC I  93 ) , DXXSI 93 ) , DY YS I  93 ) , DZZS I  93 ) 

X1=XC(I) 

X2=YC<  J) 

X3=ZCIK) 

DXL=DXXCII ) 

IF(M.EQ.N)  GOTO  100 

IFIM.EQ.l.OR.N.EQ.l)  X1=XSII) 

IF( M.EQ.l .OR.N. EG. 1 )  DXL=DXXS(I) 

IFIM.EQ.2.0R.N.EQ.2)  X2=YSIJ) 

IFlM.EQ. 3.0R.N.EQ.3 )  X3=ZS(K) 

GOTO  1000 

100  IFlM.EQ. 1)  X1=XCII-1) 

IF1M.EQ.1 )  DXL=DXXCII-1> 

IFlM.EQ. 2)  X2=YC(J-U 
IFlM.EQ. 3)  X3=ZCIK-1) 

1000  CONTINUE 

XL=X2*SINIX3)*DXL 

RETURN 

ENO 


FUNCTION  YLf  X,J,K,M,N) 


H  OR  N 


M  OR  N 


HORN  = 


1  THEN  SHIFT 
HALF  CELL  ( 

2  THEN  SHIFT 
HALF  CELL  ( 

3  THEN  SHIFT 
HALF  CELL  ( 

1  THEN  SHIFT 
WHOLE  CELL 

2  THEN  SHIFT 
WHOLE  CELL 

3  THEN  SHIFT 
WHOLE  CELL 


CELL  IN  THE  NEG 
STAGGERED  CELL) 
CELL  IN  THE  NEG 
STAGGEREO  CELL) 
CELL  IN  THE  NEG 
STAGGERED  CELL) 
CELL  IN  THE  NEG 


X  DIRECTION 


Y  DIRECTION 
Z  DIRECTION 


X  DIRECTION 


CELL  IN  THE  NEG  Y  DIRECTION 
CELL  IN  THE  NEG  Z  DIRECTION 


C0MM0N/R4/XC I  93  )  ,YCI  93  )  ,ZC(  93  )  ,XSI  93  ) ,  YSI  93  )  ,Z SI  93 ) , 

*  DXXC I  93 ) ,OYYC<  93 ) ,DZZCl 93  )  ,DXXS( 93 ) .DYYSl 93  )  >DZZS( 93  ) 

X1=XC(I) 

X2=YC( J  ) 

X3=ZC(K) 

DYL=DYYC<  J  )• 

IFIM.EQ.N)  GOTO  100 

IFIM.EQ.2.0R.N.EQ.2)  XZ*YSU) 

IFIM.EQ.2.0R.N.EQ.2)  DYL®DYYS( J ) 

IFIM.EQ.l.OR.N.EG.l)  X1=XS(I) 

IFI M.EQ. 3 .OR.N.EQ .3  )  X3=ZS(K) 

GOTO  1000 

100  IFIM.EQ.2  )  X2=YC( J-l ) 


00419400 

00419500 

00419600 

00419700 

00419800 

00419900 

00420000 

00420100 

00420200 

00420300 

00420400 

00420500 

00420600 

00420700 

00420800 

00420900 

00421000 

00421100 

00421200 

00421300 

00421400 

00421500 

00421600 

00421700 

00421800 

00421900 

00422000 

00422100 

00422200 

00422300 

00422400 

00422500 

00422600 

00422700 

00422800 

004Z2900 

00423000 

00423100 

00423200 

00423300 

00423400 

00423500 

00423600 

00423700 

00423800 

00423900 

00424000 

00424100 

00424200 

00424300 

00424400 

00424500 

00424600 

00424700 

00424800 


noooonooonon 


IFIM.EQ.2  (  0YL=DYYC(  J-l) 
IFIM.EQ.l )  X1=XC)I-1) 

IF) M.EG-3 )  X3=ZC)K-1) 
1000  CONTINUE 

YL=1.00*0YL 

RETURN 

END 


NHEN  M  OR  N  =  1  THEN  SHIFT  CELL  IN  THE  NEG  X  DIRECTION  ONE* 

HALF  CELL  (STAGGERED  CELL)  « 

NHEN  M  OR  N  *  2  THEN  SHIFT  CELL  IN  THE  NEG  Y  DIRECTION  ONE* 

HALF  CELL  (STAGGERED  CELL)  « 

NHEN  M  OR  N  =  3  THEN  SHIFT  CELL  IN  THE  NEG  Z  DIRECTION  ONE* 

HALF  CELL  (STAGGERED  CELL)  « 

NHEN  M  *  N  *  1  THEN  SHIFT  CELL  IN  THE  NEG  X  DIRECTION  ONE* 

NHOLE  CELL  * 

NHEN  M  =  N  =  2  THEN  SHIFT  CELL  IN  THE  NEG  Y  DIRECTION  ONE* 

NHOLE  CELL  • 

NHEN  M  =  N  =  3  THEN  SHIFT  CELL  IN  THE  NEG  Z  DIRECTION  ONE* 

NHOLE  CELL  « 

C0MM0N/R4/XC (  93 ) ,YC( 93 ) ,ZC<  93  )  ,XS( 93  )  ,YS! 93  )  ,2S( 93  1 , 
t  OXXCI 93  )  ,DYYC) 93  )  ,OZZC( 93  )  ,DXXS( 93 ) ,DYYS( 93 ) ,DZZSI  93 ) 

C0MM0N/BL7/NI ,NIP1 ,NIM1 ,NJ  ,NJP1 ,NJM1 .NK ,NKP1 ,NKM1 
t  ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 iNAMl >NB ,NBP1 ,NBM1 ,KRUN,NCHIP  >NJRA ,NHRP 
X1=XC(I ) 

X2=YC(  J) 

X3=ZC)K) 

DZL=DZZC(K) 

IF)  M .  EQ.N  j  GOTO  100 

IF(  M.  EG.  2  .OR  .N.  EQ.  2  )  X2=YS(J) 

IF)  M .  EQ .  1 .  OR .  N .  EQ .  1 )  X1=XS(I) 

IFIM.EQ.3.0R.N.EQ.3)  GOTO  200 
GOTO  1000 

200  CONTINUE 

IF  (K.EQ.NA.OR.K.EQ.NB  )  GOTO  2000 
X3=Z3<  K  ) 

CZL=DZZS(K) 

GOTO  1000 

100  IF)  M.  EG. 3  )  X3=ZC(K-1) 

IFtM.EQ.3)  DZL=DZZC( K-l ) 

IF(M.EQ.2  )  X2=YC)J-1) 

IF) M. EQ. 1 )  X1=XC(I-1) 

1000  CONTINUE 
ZL=X2«DZL 
GOTO  300 
2000  CONTINUE 


00424900 

00425000 

00425100 

00425200 

00425300 

00425400 

00425500 

00425600 

00425700 

00425800 

00425900 

00426000 

00426100 

00426200 

00426300 

00426400 

00426500 

00426600 

00426700 

00426800 

00426900 

00427000 

00427100 

00427200 

00427300 

00427400 

00427500 

00427600 

00427700 

00427800 

00427900 

00428000 

00428100 

00428200 

00428300 

00428400 

00426500 

00428600 

00428700 

00428800 

00428900 

00429000 

00429100 

00429200 

00429300 

00429400 

00429500 

00429600 

00429700 

00429800 

00429900 

00430000 

00430100 

00430200 

00430300 


199 


i 


DZLl-DZZClK-l) 

DZ12=DZZC(K> 

IF  (K.EQ.NB)  DZll-DZZCI K ) 

IF  (K.EQ.NB)  0ZL2=DZZC( K-l ) 
Zl=(X2*DZLl+DZL2)/2. 

300  CONTINUE 
RETURN 
END 


C 

c 

c 


FUNCTION  SILIN( VI, V2 ,01,02) 

IF  (01. EQ. 0.0. AND. 02. EQ. 0.0)  01*0.1 
IF  (01. EQ. 0.0. AND. 02. EQ. 0.0)  02-0.1 
SILIN=( V1*D2+V2*D1 )/( 01*02 ) 

RETURN 

END 


FUNCTION  DILINI VI  ,V2 ,01 ,02  ,V3  ,V4 ,03  ,D4  ,DS  ,06  ) 

V12=( V1*D2+V2«D1 )/(  01+02 ) 

V34*( V3*D4+V4»03 )/(  03+04 ) 

BILIN=( V12*0b+V34«D5 )/( 05+06 ) 

ENO 


SUBROUTINE  STRESS 

RRRRRRRRRRRRRRRRRR 

C0NM0N/R4/XCI  93  )  ,YC(  93  )  ,ZC(  93  )  ,XS(  93  ) , YS(  93  )  ,ZS(  93  ) , 
t  0XXC(  93 ) ,0YYC(  93 ) ,0ZZC(  93 ) ,0XXS< 93  )  ,DYYS( 93  )  ,DZZS( 93  ) 

COMMON/BL1/DX,DY,DZ,VOL,OTIME,VOLOT,THOT,TCOOL,PI,Q,QR 
COMMON/BL  7/NI ,NIP1 .NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1 
t  ,NIP2  ,NJP2  ,NKP2  ,NA  ,NAP1  ,NAM1  ,NB  ,NSP1  ,NBM1  ,KRUN  ,NCHIP  ,NJRA  ,I*IRP 
COMMON/BL20/SIG11(22,16,32),S1G12(22,16,32>,SIG22(22,16,32> 

5  ,SIG13( 22,16,32)  ,SIG23I 22,16,32)  ,SIG33( 22,16,32) 
COMMON/8L22/ICHPB< 10  )  .NCHPIt 10 ) , JCHPBC 10  )  ,NCHPJl 10  )  ,KCHPB< 10  ) , 

6  NCHPK( 10  1  .TCHPl 10  )  ,CPS(  10  t ,C0NS(  10 ) ,WFAN!  10 ) 
COMMON/B132/  T<  22,16,32  I  ,R(  22,16,32  )  ,P(  22,16,32  ) 

t  ,C<  22,16,32  ),U( 22,16,32 ), VI  22,16,32 ),K(  22,16,32) 


00430400 

00430500 

00430600 

00430700 

00430800 

00430900 

00431000 

00431100 

00431200 

00431300 

00431400 

00431500 

00431600 

00431700 

00431800 

00431900 

00432000 

00432100 

00432200 

00432300 

00432400 

00432500 

00432600 

00432700 

00432800 

00432900 

00433000 

00433100 

00433200 

00433300 

00433400 

00433500 

00433600 

00433700 

00433800 

00433900 

00434000 

00434100 

00434200 

00434300 

00434400 

00434500 

00434600 


COMMON/BL37/  VIS<  22 , 16 ,32 ), CONDI  22, 16 ,32  )  ,NODI 22 , 16 ,32  )  ,RWALL( 579 >00434700 


;  ,CPM( 22,16,32 ) , HSZI 3,2) ,NHSZI 22,16,32  ) .RESORMt  93  ) 

00434800 

00434900 

00435000 

DO  100  K=2,NK 

00435100 

KP2=K+2 

00435200 

KP1=K+1 

00435300 

KM1=K-1 

00435400 

KM2=K-2 

00435500 

DO  100  J=2,NJ 

00435600 

JP2=J+2 

00435700 

JP1=J+1 

00435800 

200 


JM2SJ-Z 

00  190  Z.-Z  ,NI 

IP2*I+2 

IP1*I»1 

im=i-i 

IM2*I-2 

C  CENTRAL  LENGTH  OF  THE  SCALAR  CONTROL  VOLUME 

DXP1=XL(  IP1,J,K,0,0 ) 

OXI  sXLd  ,J,K,0,0l 
DXM1=XL<IM1,J,K,0,0) 

DYP1=YLII,JP1,K,0,0) 

DYJ  =YLC  I ,  J  ,K,0,0) 

0YM1*YL(I,JM1,K,0,0) 

D2P1=ZL<I,J,KP1,0,0) 

02K  =2L(  I  »J,K  ,0,0) 

DZM1=ZL(I,J,KM1,0,0) 

C  ***  SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

DXN=XL(I,JP1,K,0,2) 

DXS=XL(I,J  ,K,0,2 ) 

DXF=XL<I,J,KP1,0,3) 

DXB=XL(1,J,K  ,0,3) 

DYFsYLI  I,J,KP1,0,3) 

DYB=YUI,J,K  ,0,3) 

0YE=YL(IP1,J,K,0,1) 

DYW=YL( I  , J ,K ,0 ,1 ) 

D2E=ZLl  IP1,J,K,0,1) 

DZW=2L(I  ,J,K  ,0,1 ) 

D2N=ZL1 I ,JP1 ,K ,0 ,2 ) 

DZS-ZLl I ,J  >K,0,2  ) 

c  •**  CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME  FOR  T 

DXEE=XLHP2,J,K,0,1) 

DXc  =XHIP1,J,K,0,1) 

DXN  =XL( I  , J,K  >0,1 ) 

DXNW=XL(IM1,J,K,0,1) 

DYNN=YL<I,JP2,K,0,2) 

DYN  =YL< I »JP1 ,K,0,2  ) 

DYS  =YLII,J  ,K  ,0,2  ) 

DYSS=YLC I , JM1 ,K ,0 ,2  ) 

DZFF=ZLU,J,KP2,0,3) 

OZF  =ZLI I , J ,KP1 ,0 ,3  ) 

DZB  =2LII,J,K  ,0,3) 

DZBB-ZLI 1,J,KM1,0,3  ) 


00435400 

00436000 

00436100 

00436200 

00436300 

00436400 

00436500 

00436600 

00436700 

00436800 

00436400 

00437000 

00437100 

00437200 

00437300 

00437400 

00437500 

00437600 

00437700 

00437800 

00437900 

00438000 

00438100 

00438200 

00438300 

00438400 

00438500 

00438600 

00438700 

00438800 

00438900 

00439000 

00439100 

00439200 

00439300 

0043 94C0 

00439500 

00439600 

00439700 

00439800 

0043«900 

00440000 

00440100 

00440200 

00440300 

00440400 

00440500 

00440600 

00440700 

00440800 

00440900 

00441000 

00441100 

00441200 

00441300 
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IBAR*0.5*(U<  IP1 ,  J,K  >*Ul  I,J,KI) 

00441400 

00441500 

VBAR=0.5*I V( I ,  JP1 ,K  )+Vf I , J ,K  >1 

00441600 

HBAR=0.5*(W(  I , J,KP1  ItWl  I ,  J,K  1 1 

00441700 

00441800 

dxy=dxi«dyj 

00441400 

DYZ=DYJ*DZK 

00442000 

DZX=DZK*DXI 

00442100 

00442200 

SIG1K  I ,  J  ,K  1=2.*VIS(  I  >J.K  >•(  I U(  IP1 ,J>K  l-UC  I  ,J,K  )  1/DXI 

00442300 

♦VBAR*<  OXN-DXS  l/DXY 

00442400 

♦WBAR*( DXF-DXB l/DZX 1 

00442500 

00442600 

SIG22C  I , J,K  1=2.*VIS(  I ,  J ,K  MM ( V<  I , JPl.K  l-Vt  I , J,K )  1/DYJ 

00442700 

♦HBAR«( DYF-DYB l/DYZ 

00442600 

♦UBAR«t DYE-OYW l/DXY 1 

00442900 

00443000 

SIG33(  I , J  ,K  1=2 .  *VIS(  I ,  J ,K  >«(  1  H(  I ,  J ,KP1  1-H(  I ,  J  ,K  1  1/DZK 

00443100 

♦U8AR*( DZE-OZW l/DZX 

00443200 

♦VBAR»( DZN-DZS l/OYZ 1 

00443300 

CONTINUE 

00443400 

00443500 

DO  200  K=2,NKP1 

00443600 

KP2=K*2 

00443700 

KPlsK*l 

00443600 

KM1=K-1 

00443900 

KM2=K-2 

00444000 

DO  200  Js2,NJPl 

00444100 

JP2=J+2 

00444200 

JP1=J+1 

00444300 

JM1=J-1 

00444400 

JM2=J-2 

00444500 

DO  ZOO  1~Z iNIPl 

00444600 

IP2-I *2 

00444700 

IP1*I*1 

00444600 

IM1=I-1 

00444900 

IM2=I-2 

00445000 

00445100 

00445200 

►  FOLLOWING  DX,  OY ,  DZ,  ARE  BASED  ON  THE  LOCAL  CONTROL 

00445300 

VOLUME  FOR  SIG12 

00445400 

00445500 

IF  (J.EQ.21  GOTO  300 

00445600 

DXN=XL 1 I » J  ,K,I,01 

00445700 

DXS=XL( I >JM1 ,K ,1 >0  ) 

00445800 

DYE=YLt  I  ,J,K,2,01 

00445900 

DYW=YL(IM1,J,K,2,01 

00446000 

DXI=XHI  >J,K,1>2 1 

00446100 

DYJ=YL(I  ,J,K,2,11 

00446200 

00446300 

DYN=YL( I »J  >K , 1 ,0  1 

00446400 

DYS=YL(I,JM1,K,1,01 

00446500 

DXE  =XL ( I  ,J,K,2,01 

00446600 

DXW=XL<IM1,J,K,2,01 

00446700 

00446800 
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u  o 


UBAR=SILINl U( I  ,J,K  ) ,Ul I , JM1 ,K ) ,DYN  ,DYS  ) 

VBAR=SILIN( V( I , J ,K  I  ,VI IM1 , J ,K ) ,DXE , DXH ) 

VIS12=8ILIN<  VISI  I  ,J,KI,VIS(I  , JM1 ,K  )  ,DYN,DYS, 
t  VIS(IM1,J,K),VISIIM1,JM1,K),DYN,DYS,  DXE.DWi) 

SIG12I I ,  J,K  )=  VIS12*(  I VI I  »J  ,K  )-Vf  I  til ,  J  >K  )  l/OXI 

t  -VBAR*( OYE-DYHJ/l DXI*DYJ  ) ) 

SIG12I I ,  J,K  )=SIG12<  I ,J,K  )*V1  S12*(  I UI I  , J ,K  )-UI  I ,  JM1  ,K  )  )/DYJ 
t  -UBAR*l DXN-DXS )/t  DXI*DYJ ) ) 

300  CONTINUE 

****  FOLLOWING  DX.  DY,  02,  ARE  BALED  ON  THE  LOCAL  CONTROL 
VOLUME  FOR  SIG13 

DXMXLtI  ,J,K  ,1,0) 

DXBZXL( I ,J,KM1,1,0 ) 

DZE-ZLI  I  ,J ,K,3,0  ) 

DZH-ZLI INI >  J  ,K  ,3  >0 ) 

DXI*XL( I  ,J,K,1,3 ) 

DZKzZL(  I  ,J,K,3,1) 

DZF-ZLt I ,J,K  ,1,0) 

0Z8zZL( I ,J,KM1 >1,0 ) 

OXE-XL(I  ,  J ,K ,3 ,0  ) 

OXH-XLI IM1 ,J,K,3,0 ) 

IF  (OZF .EQ.O.O.OR.OZB.EQ.O.O.OR.DZE -EQ.O.O.OR.OZH.EQ.O.O ) 

*  WRITE  16,*)  I ,  J  ,K  ,  OZF,OZB,DZE,DZH 
UBAR=SILINIU1I,J,K  ),U(I,J,KM1  J.OZF.DZB) 

H3AR'SILINI HI  I , J,K  J ,W( IM1 > J,K ) ,OXE ,OXH ) 

VIS13ZBILINI VISI I  ,J,K), VISII  ,J,KM1 )  ,DZF  ,OZB, 
t  VISI  IM1,J,K), VISI  IM1,J,KM1),0ZF,DZB,  DXE,OXM) 

SIG13I I >J,K  )*  VIS13*I  I  HI  I , J,K  t-HI IM1 , J  ,K  )  )/DXI 

t  -HBAR*( DZE-DZH  )/I DXI*DZK  ) ) 

SIG13I I ,  J,K  )=SIG13(  I  ,J  ,K  )*VIS13«I  I  Ut  1 ,  J,K  )-U<  I  ,J  ,KM1 )  )/DZK 
<  -UBAR*(  DXF-DXB )/l DXI*DZK  ) ) 


C  ****  FOLLOWING  OX,  DY,  DZ,  ARE  BASED  ON  THE  LOCAL  CONTROL 
C  VOLUME  FOR  SIG23 

DZN-ZLI I ,J  ,K ,3 ,0  ) 

OZS-ZLI I , JM1 ,K ,3 ,0  ) 

DYF  -YLI I ,  J  ,K  ,2,0) 

0YB=YL(I,J,XM1,2,0) 

DZK-ZLI I , J .K ,3 ,2  ) 

DY JZYL( I , J ,K ,2 ,3  ) 

OYN=YH  I , J  ,K  ,3 ,0  ) 

DYS=YLI I , JM1 ,K ,3 ,0  ) 

DZF -ZLI I , J ,K  ,2,0) 

DZBzZL( I ,J,KM1,2,0 ) 


00646900 

00447000 

00447100 

00447200 

00447300 

00447400 

OO447S00 

00447600 

00447700 

00447800 

00447400 

00448000 

00448100 

00448200 

00448300 

00448400 

00448S00 

00448600 

00448700 

00448800 

00448900 

00449000 

00449100 

00449200 

00449300 

00449400 

00449500 

00449600 

00449700 

00449800 

00449900 

00450000 

00450100 

00450200 

00450300 

00450400 

00450500 

00450600 

00450700 

00450800 

00450900 

00451000 

00451100 

00451200 

00451300 

00451400 

00*51500 

00451600 

00451700 

00451800 

00451900 

00452000 

00452100 

0045Z200 

00452300 
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u  o 


200 


998 

110 


F£AR=SILIN(  HI  I ,  J  ,K  J  ,HI  I ,  JM1  ,K  )  ,DYN ,DYS  ) 

VBAR=SILIN< VI I ,  J  ,K  )  ,V1 I , J ,KM1 )  ,0ZF ,DZB ) 

VIS23=BILIN< VISII  , J ,K  )  ,VI3l 1 ,jMl >K  >,DYN,DYS, 

A  V1SI I > J »KM1 1 , VISI I » JM1 »KM1  )  >DYN ,DYS ,  DZF.OZB) 

SIG23I I , J,K )=  VIS23*<  I VI 1 , J ,K >-V! X , J  ,KM1 )  )/DZK 

A  -VBAR*I OYF-DYB  )/l DZK«DYJ  ) ) 

SIG23I I ,  J  ,K  )=SIG23I  I ,  J,K  (♦VIS25»(  I  HI  I ,  J  ,K  )-H(  I  ,  JM1  ,K  )  l/DYJ 
A  -HBAR* I DZN-D2S )/l  02K*DYJ ) ) 

CONTINUE 
DO  110  1=1 ,NIP1 
DO  110  J=1 »NJP1 

HRITE  16,998)  I ,J,SIGlll I  ,J,5 ) .SIG12I I ,J ,5  )  .SIG13I I ,J,5 ), 

A  SIG22I I , J ,5  )  ,SIG23< I ,J,£ )  ,SIG33I I ,J ,5  ) 

FORMAT  I 2X, 14, IX, 14, 61 IX, Ell. 4)) 

CONTINUE 

RETURN 

ENO 


00452400 
00452500 
00452600 
00452700 
00452800 
00452900 
00453000 
00453100 
00453200 
00453300 
•  00453400 
00453500 
00453600 
00453700 
00453800 
00453900 
00454000 
00454100 
00454200 
00454300 
00454400 
00454500 
00454600 
00454700 
_ _ 00454800 


SUBROUTINE  CALQI LL) 


00455000 


CCMMON/BL1/DX ,DY , DZ ,VOL  >DTIME  »VOLDT  »THOT ,TCOOL  >PI ,Q,QR  00455200 

COMMON/BL7/NI  ,NIP1  ,NIM1  ,NJ  ,NJP1  ,NJM1  ,NK  ,NKP1  ,NKM1  00455210 

COMMON/BL12/  NHRITE ,NTAPE .NTMAXO .NTREAL .TIME .SORSUM, ITER  00455300 

C0MMCN/BL14/HC0EF ,TINF ,CNT , ABTURB »BTURB»VISL » VISMAX .QCORRT ,PM1 ,PM200455400 
C0MM0N/BL16/  CONST1 ,CONST2 .C0NST3 .C0NST4 .CONST6 ,NT ,U0 ,H ,UGRT .BUOY ,00455500 
A  CPO ,PRT .CONDO ,VIS0 ,RHOO .HR ,TR ,TA .OTEMP .THRITE ,TTAPE .TMAX.GC ,RAIR00455b00 
COMMON/BL34/  HEIGHT! 22 , 16 ,32 ) ,REQf 22 ,16 ,32 ) ,  00455700 

A  SMP! 22, lb, 32)  .SMPPI  22,16,32  ),PPI 22,16,32),  00455800 

A  DU I  22, 16, 32  ),DV I  22, 16, 32  1 ,0H( 22,16,32)  00455900 

COMMON/BL37/  VISI  22 , 16 ,32  I  .CONDI  22 ,16 ,32  ), NODI  22 ,16 ,32  )  .RHALLI  579  100455910 


A  ,CPM( 22,16,32  I.HSZt 3,2  I.NHSZi 22 , 16 ,32  I  .RESORMl 93 ) 

C0MM0N/BL3  9/ALEW , PCURVE .CONSRA ,FCURM1 ,PSOUTH,QCORR,PERROR 

C  ***  IN  MANY  OF  THE  FOLLOWING  LIMES  A  TEMPORARY  CORRECTION  FOR 
C  *  ADJUSTING  QQ  TO  AGREE  WITH  THE  PRESSURE  HAS  BEEN  APPLIED. 

XTIME  =TIME*H/U0 

VOLT =0 . 0 
DO  113  1=2, HI 
DO  113  J=2 ,NJ 
DO  113  K=16 , 17 

IF  I NH3ZI I ,J,K ).EQ.0  I  GOTO  113 
DXI  =XLI I  , J ,K ,0 ,0  ) 

DYJ  =YLI  I ,  J  ,K,0,0l 
DZK  =ZLI  I  >J,K  ,0,0) 

VOL*OXI*OYJ*DZK«H*H«H 


00455920 

00456000 

00456100 

00456200 

00456300 

00456400 

00456500 

00456510 

00456520 

00456530 

00456540 

00456550 

00456560 

00456570 

00456580 

00456590 

00456591 
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VOLT *VOLT* VOL 
US  CONTINUE 

QRVOLsO . 

DO  70  1=561,579 

QRVCL  =QR VOL ♦RHALL ( I  l«l./12.*0. 2*PI 
70  CONTINUE 


<JR=QRVOL/VOLT*UO*CPO«RHOO«TA/H 
IF  (XTIME.LT.2S.il  THEN 

PCURV£=9.789522E-5«XTIME**2-2.588310E-6*XTIME**S* 
t  REQ1 10,9,16 ) 

OPDT  =9.789522E-5«XTIME»2-2.S88310E-6»XTIME**2*3 
ELSE 

PCURVE  =0 . 0052+ . 81264E-3»XTIM£ - . 22604E -5*XTIME**26 . 27262E -8*XTIME**00457300 


00456592 

00456593 

00456594 

00456595 

00456596 

00456597 

00456598 

00456599 

00456600 

00456700 

00456800 

00456900 

00457000 

00457100 

00457200 


(  3-.115621E-ll«XTIME**4*REQ(  10,9,16) 

OPDT® .81264E-3- . 22604E-5«XTIME»2 ♦ . 27262E-8*XTIME** 

&  2*3.0-.llS621E-U«XTIME**3*4 

ENOIF 

IF  (  LL  .EQ.  1)  THEN 
QQ=1.0E8«0P0T 
Q=CQ*3. 4134/60. /60. 

65  CONTINUE 

Q=Q»QCORRT-QR 

ELSE 

THIS  USES  A  CURVE  FIT  THROUGH  THE  BURNRATE  DATA  GIVEN  BY  NRL 
CC0RRT=0.0 
GCORR=0.0 
ITEST  =  0 

BURNR1®  5.4576748  *0 . 18815S46*XTIME- . 20153996E-03«XTIME**2 
6URNR2*  -1.3116787  ♦  .  33158595«XTIME- .  7342952E-03«XTIME#*2 
t  ♦ . 50945510E-06*XTIME**3 

IF  (XTIME  .LT.  1001  THEN 

BURNR®  BURNR2  ♦  1 . 3117- . 013117«XTIME 
ELSE 

BURNR  s  BURHR2 


ENOIF 
IF( XTIME 
X  F I BURNR 2 


LE.  300)  GO  TO  60 
•  LT.  BURNR 1  I  THEN 
BURNR  =  (BURNR1  ♦  BURNR 2 )  / 
GO  TO  60 


60 


CC 


ELSE 

IF  (  XTIME  .LT.  600.01  GO  TO  60 
IF  (ITEST  .EQ.  0)  THEN 
BURNP.3  =  BURNR  2 
ITEST  *  1 
ENOIF 

BURNR  z  BURNR 3 
ENOIF 

Q  =  BURNR»2. 2046*9612. /3600.-QR 
THIS  GIVES  Q  IN  BTU/SEC 

ENOIF 


00457400 

00457500 

00457600 

00457700 

00457710 

00457800 

00457900 

00458000 

00458100 

00458200 

00458300 

00458400 

00458410 

00458420 

00458500 

00458600 

00458700 

00458800 

00453900 

00459000 

00459100 

00459200 

00459300 

00459400 

00459500 

00459600 

00459700 

00459800 

004£oo00 

00460000 

00460100 

00460200 

00460300 

00460400 

00460500 

00460600 

00460700 

00460600 

00460900 
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Q=59. 313+0. 7195*XTIME-0.1139E-2«XTIME*«2-0.3367E-5*XTIME**3 

0=0*3412/3600 

RETURN 

END 


00460910 

00460920 

00461000 

00461100 

00461200 

00461300 

00461400 

00461500 


SUBROUTINE  RADHTI T4WALL ,VFMXC ) 


00461700 


C0MM0N/8L  7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1  00461900 

*  ,NIP2,NJP2,NKP2,NA,NAPl,NAMl,N8,NBPl,NBMl,KRUN,NCHIP,NJRA,)*ffiP  00462000 
C0MM0N/BL16/  CONST 1 ,C0NST2 ,C0NST3  >C0NST4 ,C0NST6 .NT  ,U0 ,H ,UGRT ,BUOY  .00462100 

<  CPO.PRT .CONOO.VISO.RHOO.HR  »TR  »TA (DTEMP.TWRITE .TTAPE »TMAX»GC»RAIR00462200 

COMMON/BL32/  Tl 22 ,16 ,32  ) ,R( 22 ,16,32 ) ,P(  22 ,16,32 )  00462300 

<  ,CI 22,lo,32  )  ,U( 22,16,32  ), VI 22,16,321 ,Ht  22,16,32 )  00462400 

COMMON/BL37/  VISI  22,16,32  )  ,CONDf 22 .16,32 ), NODI  22,16,32 ),RWALLI 579)00462500 

A  ,CPH(  22,16,32)  >HSZ( 3,2) ,NHSZ( 22,16,32  ),RESORM( 93 )  00462600 

COMMON/BL39/ALEH,PCURVE,CONSRA,PCURM1,PSOUTH,QCORR,PERROR  00462700 

00462800 

00462900 

DIMENSION  VFMXC) 579,579 ) .T4WALLI 579 )  00463000 

DO  4010  K=3,NKM1  00463100 

DO  4010  1=2, HI  00463200 

II  =  IK-3  l*(NI-l ) ♦ I -1  00463300 

T4WALL1 II  )=CONSRA*T( I »NJRA,K  )*T( I ,NJRA,K )*T( I ,NJRA ,K  )*TI I ,NJRA,K  )  00463400 


4010  CONTINUE 

C  RADIATION  FROM  THE  FIRE  TO  THE  HALL 

DO  4011  J=3,9 
JJ=561+9-J 

AVT=0. 25*1 Tl  16,J>16  )+T( 17 ,J ,16  )+Tt 16 , J ,17 )+T(  17,J,17)) 
T4WALLI JJ  >=CONSRA*AVT*AVT*AVT*A'/T 

4011  continue 

c 

DO  4012  J=3,14 
JJ =568+J-3 

AVT =0 . 25*1  Tl  6  ,J  >16  >+T(  7,J,16  )+TI  6»J>17  )+TI  7,J»17)  > 
T4WALU  JJ  l=CONSRA*AVT*AVT*AVT*AVT 

4012  CONTINUE 
C 

DO  4020  1=1,579 
RWALLII  1=0.0 
00  4020  J=1 ,579 

RWALLI I  l=RHALL( I )+VFHXC( I ,J )*T4HALLI J ) 

4020  CONTINUE 
RETURN 
END 


00463500 

00463600 

00463700 

00463800 

00463900 

00464000 

00464100 

00464200 

00464300 

00464400 

00464500 

00464600 

00464700 

00464800 

00464900 

00465000 

00465100 

00465200 

00465300 

00465400 

00465500 

00465600 

00465700 

00465800 

00465900 

00466000 

_00466100 


SUBROUTINE  GLOBE 

00466300 

4MM44M44  Aft  A  1  L  A  ft  ft 

« 

THIS  SUBROUTINE  CALCULATES 

THE  GLOBAL  PRESSURE  CORRECTION, 

F"*"*"UUHOOHUU 

•00466500 

* 

NHEREBY  THE  PRESSURE 

MATRIX 

IS  UPDATED. 

•00466600 

« 

VARIABLES  USED  ARE: 

•00466700 

* 

SUMT 

s 

SUM  OF  TEMPERATURES 

•00466800 

* 

SUMPT 

s 

SUM  CF  PRESSURE  OVER  TEMPERATURE 

*00*466900 

* 

SUMPET 

s 

SUM  OF  EQUILIBRIUM  PRESSURE  OVER 

TEMP*00467000 

* 

UGRT 

« 

CONSTANT 

*00467100 

* 

PCORR 

c 

PRESSURE  CORRECTION 

•00467200 

IHHHMHHMMMHHHMMHMHHHHMHHHHHHHHHHHHMHHHHHHHHHHMHHHMHHHHt  IHHHHHHHHHMHHHHHHHt  00467500 

C0MM0N/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1  00467400 

t  ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,F«RP  00467500 
COMHON/BL16/  C0NST1  .CONST 2  .C0NST3  .C0NST4  .CONST 6  >NT  ,U0  >H ,UGRT ,BUOY  ,00467600 
t  CPO ,PRT .CONDO , VISO .RHOO  .HR.TR.TA .OTEMP .TWRITE .TTAPE .TMAX.6C .RAIR00467700 
COMMON/BL32/  Tl 22,16 ,32  )  ,R< 22,16 ,32  ),P! 22 ,16,32 )  00467800 

S  ,C( 22,16,32  )  ,U( 22,16,32  )> VI 22,16 >32 ) ,Ht  22,16,32 )  00467400 

C0MM0N/BL34/  HEIGHT! 22 ,16 ,32 J ,REQ( 22 ,16,32  ),  00468000 

*  SMP! 22,16,32  ),SMPPI 22,16,32 i.PPI 22,16,32 ),  00468100 

t  DU! 22 ,16,32  ),DV( 22 ,16,32  )  ,DHl 22,16,32  )  00468200 

COMMON/B L3 7/  VIS!  22 ,16 ,32  I  .CONDI  22,16,32)  ,NOD(  22,16,32)  .RHALU  579  )004b8300 


00468400 
00468500 
00468600 
00468700 
00468800 
00468900 
00469000 
00469100 
00469200 
00469300 
00469400 
00469500 
00469600 
00469700 
00469600 
00*469900 
00470000 
00470100 
00470200 
00470300 
00470400 
00470500 
00470600 
00470700 
00470800 
00470900 
00471000 
00471100 
00471200 
00471300 
00471400 
00471500 

C  _ 00471600 

*4444  »**»*»4444»4H4»**»»*»**»»»**44* 4444**  *4444*44444444*  ************** 44**4444*  »44»44«**004 7 1700 


S  ,CPM( 22,16,32  )  ,HSZ( 3,2  ),NHS2( 22 ,16,32  ) .RESORMt 93  ) 

SUMT =0 . 

SUMPT =0 . 

SUNP£T=0. 

DO  370  1=2, NI 
DO  370  J=2,NJ 
DO  370  K=2 ,NK 

IF  ( NODI  I , J,K  ) .EQ .  1 )  GOTO  370 
DXI=XL!I,J,K,0,0,01 
DYJ=YL(I,J,K, 0,0,0) 

DZK=ZLII,J,K, 0,0,0) 

VOL=OXI*DYJ*D2K 
SUMT =SUMT ♦ 1 , /T ( I , J ,K  )*VOL 
SUMPT =SU1PT*P!  I , J,K  )/T(  I ,  J  ,K  l*VOL 
SUMPET=SUMPET»REQ( I , J ,K  )*( 1 . /1 . 0-1 . /Tl  I , J ,K ) )*VOL 
370  CONTINUE 

SUMPET =SUMPET/UGRT 
PC0RR=1 SUMPET-SUMPT l/SUMT 
FCORRN=PCORR 


DO  371  1=1 ,NIP1 
DO  371  J=1 ,NJP1 
DO  371  K=1,NKP1 
P  ( I ,  J  ,K  )=PI  I ,  J  ,K  )*PCORRN 
CONTINUE 


371 


RETURN 

END 
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SUBROUTINE  SOLCON 


00471800 


COMMON/BL  7/NI  ,NIP1  ,NIM1  ,NJ  ,NJP1  ,NJM1  ,NK  ,WP1  ,NKM1  00472000 

»  ,NIP2  >MJP2  >NKP2  ,NA  ,NAP1  ,NAM1  ,NB  >NBP1  ,f©l11  ,KRUN,NCHIP  ,NJRA,NHRP  00472100 
COMMON/BL12/  NHRITE ,NTAPE .NTMAXO .NTREAL .TIME .SORSUM, ITER  00472200 

C0MMCN/BL16/  C0NST1 .C0NST2 .C0NST3 .C0NST4 .C0NST6 , NT ,U0 ,H ,UGRT, BUOY ,00472300 
t  CPO ,PRT , CONDO ,VISO ,RHOO ,HR »TR,TA,DTEMP .TWRITE ,TTAPE , TMAX ,GC .RAIR004 72400 
COMMON/BL22/ICHPBI 10 ) ,NCHPI( 10  ) , JCHPBI 10  )  ,NCHP Jl 10  )  .KCHPBI 10  ),  00472S00 

&  NCHPKI 10  )  ,TCHP1 10  )  ,CPSt 10  )  ,CONSt 10  ) ,HFAN( 10  )  00472600 

COMMON/BL37/  VIS1 22 , 16 ,32  ) , CONDI  22 ,16,32  » >NOD( 22,16 ,32  )  .RHALLI £79  >00472700 


»CPM( 22,16,32) ,HSZ( 3,2  ),NHSZI 22,16,32 ) ,RESORM( 93 ) 

00  402  N=1 ,NCHIP 
IB=ICHPB< N ) 

IE=IB*NCHPI(N)-1 
JB-JCHPBf  N ) 

JE=JB*NCHPJ(N)-1 
KB-KCHPBI N ) 

KE*KB+NCHPKIN)-1 
DO  405  I=IB»IE-1 
DO  405  J=JB,JE-1 
CO  405  K=KB,KE-1 
CONDI  I »J»K ) -CCNDO«CONS( N ) 

CPtN  I  ,J  ,K  )=CPS(N) 

NCDII,J,K1=1 

IF  I J.EQ.NJ )  CONDI  I ,NJP1 ,K  l-CONDI I ,NJ  ,K ) 

(I. EQ. 2)  CONDI  1 ,J ,K )=COND< 2  ,J,K ) 

(I.EQ.NI  1  CONDI NIP1 , J ,K  )=COND( NI , J ,K  ) 

1 1.  EQ.  2.  AND.  J.EQ.NJ)  CONDI  l.Jtl.K  >=COND(  2,  J,K  ) 
(I.EQ.NI. AND. J.EQ.NJ  )  CONDI NIP1 ,J  +  1 ,K  )=CONDl NI , J,K  ) 
(J.EQ.NJ)  CPMI I  ,NJP1  ,K  l=CPMI  I  ,NJ  ,K  ) 

1 1 .EQ. 2  I  CPMI 1 ,J ,K  )=CPMt 2  , J ,K  ) 

(I.EQ.NI)  CPMI NIP1 , J ,K  l=CPM(NI,J,K) 

1 1 . EQ . 2 . AND . J . EQ .NJ  )  CPMI 1 , J+l ,K  )=CPM( 2 ,J,K  ) 

I I.EQ.NI. AND. J.EQ.NJ)  CPMI NIP1 , J+l.K )=CPMl NI , J,K ) 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 

405  CONTINUE 
402  CONTINUE 
RETURN 
END 


00472800 

00472900 

00473000 

00473100 

00473200 

00473300 

00473400 

00473500 

00473600 

00473700 

00473800 

00473900 

00474000 

00474100 

00474200 

00474300 

00474400 

00474500 

00474600 

00474700 

00474800 

00474900 

00475000 

00475100 

00475200 

00475300 

00475400 

00475500 

00475600 

00475700 

00475800 

00475900 


SUBROUTINE  PTRACK  00476100 

»»»»»«»<h,»»«4»»»*«»«»«»»»«»»»«»»»»>hh>«*>hhh>>i>(»«»»»»»<hhhhhhhhhhhhm,»00476200 
C0MK0N/BL14/HC0EF ,TINF ,CNT , ABTURB ,BTURB,VISL  >VISMAX .GCORRT ,PM1 .PM200476300 
C0MM0N/BL16/  C0NST1 ,CCNGT2 ,C0NST3 ,C0NST4 , C0NST6 ,NT ,U0 ,H ,UGRT ,BUOY ,00476400 
*  CPO ,PRT .CONDO ,VISO,RHOO,HR ,TR,TA ,DTEMP .THRITE ,TTAPE ,TMAX,GC .RAIR004 76500 
COMMON/BL32/  Tl 22 ,16 ,32  )  ,RI 22 ,16 ,32  )  ,PI 22  ,16 ,32  )  00476600 

t  ,C I  22,16,32  >,UI 22,16,32 ), VI 22,16,32 ), Ml  22,16,32 )  00476700 

C0MM0N/BL34/  HEIGHT! 22 , 16 ,32  )  ,REQI 22 , 16 ,32  ) ,  00476800 

(  SMPI 22,16,32) ,SMPPI  22,16,32  ),PP(22,16,3Z),  00476900 

t  OUI 22,16,32 ) ,DV( 22,16,32 ),DH(  22,16,32 )  00477000 

COMMON/BL39/ALEH , PCURVE ,C0N3RA , PCURM1 .PSOUTH ,QCORR .PERROR  00477100 

00477200 
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CC  **  THE  FOLLOWING  PRESSURE  TEST  IS  A  TEMPORARY  MEASURE  TO  MODIFY  THE  0C477300 
CC  HEAT  INPUT  TO  FORCE  THE  CALCULATED  PRESSURE  TO  AGREE  WITH  THE  00477400 
CC  EXPERIMENTAL  PRESSURE.  IT  WILL  BE  USED  UNTIL  ACCURATE  HEAT  INPUT  00477500 
CC  **  IS  RECEIVED.  00477600 


CC 


C 

**« 


00477700 

PSOUTH=P< 10,9,16  1*C0NST1*REQ< 10,9,16 )  00477800 

PERROR=<  PCURVE -PSOUTH  l/PCURVE  00477900 

QC0RR=1 .0*PERR0S-( PS0UTH-PM1 l/PCURVE  00478000 

QCORR-1 . O+PERROR-I PS0UTH-PM1 l/PCURVE ♦( PSOUTH -PM1 )/( PCURVE -PCURM1 1*00478100 
t  I PCURVE-PM1  l/PCURVE  00478200 

QCORRT =QCORRT  *QCORR  00478100 

PCURM1=PCURVE  00478400 

PM1 =PSOUTH  00478500 

00478600 

RETURN  00478700 

END  00478800 

00478900 

00479000 

00479100 

_ 00479200 


SUBROUTINE  TCP 


00479400 


00479600 


* 

* 


THIS  SUBROUTINE  CALCULATES  THE  TEMPERATURE  AT  THE  TERMOCOUPLE 
POSITIONS. 


*00479800 

*00479900 


C0MM0N/R4/XC ( 93  1  ,YC( 93 1 ,ZC<  93 1 ,XS(  93  I ,YS!  93 1 ,ZSt  93 1 ,  00480100 
t  DXXCI 93  1 ,DYYCI 93  1  ,DZZC( 93  1  ,DXXS( 93  )  ,DYYS( 93  1  ,DZZS( 93  1  00480200 
C0MM0N/BL16/  C0NST1 ,C0NST2 ,C0NST3 .CONST 4 ,C0NST6 ,NT ,UO,H ,UGRT ,BUOY ,00480300 
t  CPO ,PRT .CONDO ,VISO ,RHOO ,HR ,TR , T A , DTEMP , TWRI TE .TTAPE ,TMAX ,GC ,RAIR00480400 


COMMON/BL32/  T( 22  ,16 ,32  1  ,R< 22 ,16 ,32 ) ,PI 22 ,16 ,32 1 
l  ,C( 22,16,32  l,Ut 22,16,32  I, V( 22 .16,32  1  ,Wt 22,16 ,32 1 

C0MM0N/BL38/NTHC0 ,CX( 12  1  ,CY( 12 1 ,CZ1 12  1  ,NTH( 12 ,3  1  ,TCOUP( 12 1 


DO  5100  N=1 .NTHCO 
II=NTH(N,1) 

JJ=NTHIN,21 

KK=NTH(N,3I 

VOL=ABS(  I  XC(  II  +  l  l-XC(  II 1 1*(  YC1  JJ+1  l-YCI  JJ  1 1*1  ZCl  K.K+1  I-ZCI  KK  1 1 1 
TCOUPIN  UO. 

DO  5101  I*II,XI»1 
III*II»II*1-I 
DO  5101  J=JJ,JJtl 

DO  51  Cl  K=KK-,KK*1 
KKK =KK  »KK  -f  1  -K 

WVOL=ABS(  ( XC(  I  l-CXI  N  1 1*(  YCIJ  1-CYI N )  1*(  ZCl  K  1-CZl  N 1 1 1/VOL 
TCOUPI N  )=TCOUP( N  )+WVOL*TI III ,JJJ ,KKK  1 
5101  CONTINUE 

TCOUP ( N  1  =TCOUP I N )*TR - 273 . 18 
5100  CONTINUE 


00480500 

00480600 

00480700 

00480800 

00480900 

00481000 

00481100 

00481200 

00451300 

00481400 

00481500 

00481600 

00481700 

00481800 

00481900 

00482000 

00482100 

00482200 

00482300 

00482400 

00482500 

00482600 

00482700 
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RETURN 

END 


00482800 

00*82900 

00483000 

00483100 

00483200 

00483300 

00483400 


SUBROUTINE  OUTINN  I 


00483600 


COMMON/BL1/DX,DY ,DZ , VOL ,0TIME , VOLOT ,THOT ,TCOOL ,PI ,Q,QR  00483800 

COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ  ,NJP1 ,NJM1 ,NX ,NKP1 ,NKM1  00483900 

8  ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB>NBP1,NBM1,KRUN,NCHIP,NJRA,FKRP  00484000 
COMMON/BL 1 2/  NWRITE.NTAPE.NTMAXO .NTREAL, TIME ,SORSUM, ITER  00484100 

COMMON/BL 14/HCOEF  »TINF ,CNT ,  ABTURB  ,BTURB , VISL , VISMAX  >QCORRT ,PM1 .PM200484200 
COMMON/BL 16/  C0NST1,C0NST2,C0NST3,C0NST4,C0NST6,NT,U0,H,UGRT,BU0Y, 00484300 
8  CPO,PRT,CONDO,VISO,RHOO,HR,TR,TA,DTEMP,THRITE,TTAPE,TMAX,GC,RAIR00484400 
COMMON/BL32/  T! 22, 16,32), R( 22, 16, 32), PI  22,16,32 )  00484500 

8  ,CI 22,16,32  ) ,U( 22  >16 ,32  )  >V( 22 ,16,32  )  ,HI 22 >16 >32 )  00484600 

C0FW0N/BL34/  HEIGHT! 22,16,32  ),REQ1 22,16,32 ),  00484700 

8  SMP! 22,16,32)  »SMPP( 22, 16  >32),  PP(  22, 16, 32),  00484800 

8  DU!  22,16,32  ),D7f  22,16,32  I, ON! 22,16,32 )  00484900 

C0MM0N/BL36/AP1 22,16,32  t,AE! 22 ,16 ,32  I , AW! 22 ,16 ,32  ), AN! 22 ,16,32 ) ,  00484910 

8  AS(22,le,32i,AF(22,16,32),AB!22,16,32),  00484920 

8  SP(  22 ,16,32  ) ,SU( 22 ,16,32  ) ,RII 22,16,32 )  00484930 

C0MM0N/BL37/  VIS!  22,16 ,32  )  ,COND< 22,16,32  ), NOO! 22,16,32 ) ,RHALL! 579 100485000 


8  »CPMl 22,16 ,32  I  ,HSZi 3,21  .NHSZI 22,16 ,32  I .RES0RM1  93 ) 

COMMON/BL38/NTHCO.CX! 12  1  ,CV( 12  I  ,CZ! 12  I  ,NTH! 12,3) ,TCOUP!  12 ) 
COMMON/EL39/ALEW.PCURVE ,C0NSRA,PCURM1 ,PSOUTH,QCORR,PERROR 
XTIME=TIME*H/UO 
IF!  NN  .EQ.  1)  THEN 

QRR=60. *60. /3. 412/1000. *QR 

WRITE! 6,500!  XTIME .NTREAL .TIME .ITER .RESORM! ITER  ) ,SORSUM,QRR 
50C  FORMAT! IX,  'TIME1 ‘ ,F7. 3 , '  S ‘ ,1X, 'NTREAL* ' ,I9,1X, 

8  'TIME= ' ,F7. 2, '<0> 1 , IX, 'ITER* ',12, IX, 'SOURCE* ', 

8  F 9 . 6 » IX , ' SORSUM* 1,F9.6,1X,'  QRIKHI  =  ',F10.4) 

QKW  =  ( (60. *60.  )/(3.412»1000.  )  I*  Q 
PRINT  « 

PRINT  «,  '  PCURVE  PSOUTH  PERROR 

8CRR  QCORRT  Q!KWt  • 

PRINT  *,  PCURVE, PSOUTH, PERROR, QCORR, QCORRT ,QKH 
PRINT  * 

ELSE  IF!  NN  .EQ.  2  )  THEN 
PRINT  « 

PRINT  *,'  TEMPERATURES  AT  THERMOCOUPLE  POSITION  IN  !C)' 
WRITE  16,*)  ! TCOUP! N ),N=1,NTHC0 ) 

PRINT  * 

PRINT  * 

ELSE 

DO  502  L*25,25 


00485100 
00485200 
00485300 
00485400 
00485500 
00485600 
00485610 
00485700 
00485800 
00485900 
00486000 
00486100 
00486200 
00486300 
QO 0486400 
00486500 
00486600 
00486700 
00486800 
00486900 
00487000 
00487100 
00487200 
00487300 
00487400 
00487500 
00487600 
00487700 
00487800 
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K=L 

DO  502  M=i,NIPl 
I=M 

WRITE (6,504)  I,K 

504  F0RMAT1/,2X» ‘I  =  ‘ »I2»5X» 'K  =  ‘  ,12 ,/ >10X > '  T  NOD 1 ,3X, ‘Rl GM/C .C . ) 1 ,2X, 
a  'Ut  CM/SEC  1 1 »2X> 'VI  CM/SEC  t ‘ ,2X» ‘W( CM/SEC  ) ' » *P  ( ATM ) ' »5X> 'SMP ' >5X» 
a  ' VIS( SEC/CM-CM ) ' >3X> 'CONDI SEC/CM-CM  I*  »  *  XSMP't/) 

513  DO  503  J=1,NJP1 
C  XTEMP=T(I,J,K)/C0NST3-273.16 

XTEMP=T(I,J,K> 

C  XR=R(I,J,K t*RHO0/2.2048  *1000 .*( 0.0328  )**3 

XR-Rl I  >J,K  ) 

C  XU=UII,J,K)*C0NST6 

C  XV=V(I,J,K  l*CONST6 

C  XH=W(I,J,K)*CONST6 

C  XP=(  Pt  I  »J,K  )*C0N$T1+RE8(  I » J,K  )*PINT > 

XP=P(I,J,K) 

XU=UI I ,J,K ) 

XV=V( I ,J,K ) 

XW=W(I,J,K*1» 

CC  XVIS=VIS< I , J,K )*RHOO*CPO*H*UO*1 .48314 

CC  XCOND-CONDI I ,J,K l*RHOO*CPO*H«UO*l . 48814 

XVIS=VIS< I,J,K J/VISO 
XCOND=COND<  I  ,J,K  )/VISO 
XSMP=RI<I,J,K ) 

DDYY=1 ./FLOATl NJM1-2 ) 

PE  =SQRT f U<  1 , J,K l**2*V( I ,J,K )**2+W( I, J,K  )**2  l*DDYY/CONDl I,J,K 1 
WRITE ( 6 ,511 ) J ,XTEMP ,XR ,XU ,XV ,XW ,XP ,SMPt I,J,K ) ,XVIS ,XCOND ,XSMP 
511  F0RMAT12X, ,J=‘ ,I3,2X,F6.3,2X,F6.3,2X,F7.3,2X,F7.3»3X,F7.3,3X 
a  ,F12.3,3X,F9.6,2X,F6.2,2X,F6.2,2X,F6.3) 

503  CONTINUE 
502  CONTINUE 
ENOIF 
RETURN 
END 


00487900 

00488000 

00486100 

00488200 

00488300 

00488400 

00488500 

00488600 

00488700 

00488800 

00488900 

00489000 

00489100 

00489200 

00489300 

00489400 

00489500 

00489600 

00489700 

00489800 

00489900 

00490000 

00490100 

00490200 

00490300 

00490400 

00490500 

00490600 

00490700 

00490800 

00490900 

00491000 

00491100 

00491200 

00491300 
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